home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 April: Mac OS SDK / Dev.CD Apr 98 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Universal / Interfaces / AIncludes / QuickTimeComponents.a < prev    next >
Encoding:
Text File  |  1998-02-12  |  189.6 KB  |  6,653 lines  |  [TEXT/MPS ]

  1. ;
  2. ;    File:        QuickTimeComponents.a
  3. ;
  4. ;    Contains:    QuickTime Interfaces.
  5. ;
  6. ;    Version:    Technology:    QuickTime 3.0
  7. ;                Release:    Universal Interfaces 3.1
  8. ;
  9. ;    Copyright:    © 1990-1998 by Apple Computer, Inc., all rights reserved
  10. ;
  11. ;    Bugs?:        Please include the the file and version information (from above) with
  12. ;                the problem description.  Developers belonging to one of the Apple
  13. ;                developer programs can submit bug reports to:
  14. ;
  15. ;                    devsupport@apple.com
  16. ;
  17. ;
  18.     IF &TYPE('__QUICKTIMECOMPONENTS__') = 'UNDEFINED' THEN
  19. __QUICKTIMECOMPONENTS__ SET 1
  20.  
  21.     IF &TYPE('__MACTYPES__') = 'UNDEFINED' THEN
  22.     include 'MacTypes.a'
  23.     ENDIF
  24.     IF &TYPE('__MIXEDMODE__') = 'UNDEFINED' THEN
  25.     include 'MixedMode.a'
  26.     ENDIF
  27.     IF &TYPE('__COMPONENTS__') = 'UNDEFINED' THEN
  28.     include 'Components.a'
  29.     ENDIF
  30.     IF &TYPE('__IMAGECOMPRESSION__') = 'UNDEFINED' THEN
  31.     include 'ImageCompression.a'
  32.     ENDIF
  33.     IF &TYPE('__MOVIES__') = 'UNDEFINED' THEN
  34.     include 'Movies.a'
  35.     ENDIF
  36.     IF &TYPE('__QUICKDRAW__') = 'UNDEFINED' THEN
  37.     include 'Quickdraw.a'
  38.     ENDIF
  39.     IF &TYPE('__VIDEO__') = 'UNDEFINED' THEN
  40.     include 'Video.a'
  41.     ENDIF
  42.     IF &TYPE('__SOUND__') = 'UNDEFINED' THEN
  43.     include 'Sound.a'
  44.     ENDIF
  45.     IF &TYPE('__QUICKTIMEMUSIC__') = 'UNDEFINED' THEN
  46.     include 'QuickTimeMusic.a'
  47.     ENDIF
  48.  
  49.  
  50. clockComponentType                EQU        'clok'
  51. systemTickClock                    EQU        'tick'                ; subtype: 60ths since boot        
  52. systemSecondClock                EQU        'seco'                ; subtype: seconds since 1904        
  53. systemMillisecondClock            EQU        'mill'                ; subtype: 1000ths since boot        
  54. systemMicrosecondClock            EQU        'micr'                ; subtype: 1000000ths since boot    
  55.  
  56. kClockRateIsLinear                EQU        1
  57. kClockImplementsCallBacks        EQU        2
  58. kClockCanHandleIntermittentSound EQU    4                    ; sound clocks only 
  59. ; * These are Clock procedures *
  60. ;
  61. ; pascal ComponentResult ClockGetTime(ComponentInstance aClock, TimeRecord *out)
  62. ;
  63.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  64.         Macro
  65.         _ClockGetTime
  66.             move.l              #$00040001,-(sp)
  67.             moveq               #0,D0
  68.             dc.w                $A82A
  69.         EndM
  70.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  71.         IMPORT_CFM_FUNCTION ClockGetTime
  72.     ENDIF
  73.  
  74.  
  75. ;
  76. ; pascal QTCallBack ClockNewCallBack(ComponentInstance aClock, TimeBase tb, short callBackType)
  77. ;
  78.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  79.         Macro
  80.         _ClockNewCallBack
  81.             move.l              #$00060002,-(sp)
  82.             moveq               #0,D0
  83.             dc.w                $A82A
  84.         EndM
  85.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  86.         IMPORT_CFM_FUNCTION ClockNewCallBack
  87.     ENDIF
  88.  
  89. ;
  90. ; pascal ComponentResult ClockDisposeCallBack(ComponentInstance aClock, QTCallBack cb)
  91. ;
  92.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  93.         Macro
  94.         _ClockDisposeCallBack
  95.             move.l              #$00040003,-(sp)
  96.             moveq               #0,D0
  97.             dc.w                $A82A
  98.         EndM
  99.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  100.         IMPORT_CFM_FUNCTION ClockDisposeCallBack
  101.     ENDIF
  102.  
  103. ;
  104. ; pascal ComponentResult ClockCallMeWhen(ComponentInstance aClock, QTCallBack cb, long param1, long param2, long param3)
  105. ;
  106.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  107.         Macro
  108.         _ClockCallMeWhen
  109.             move.l              #$00100004,-(sp)
  110.             moveq               #0,D0
  111.             dc.w                $A82A
  112.         EndM
  113.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  114.         IMPORT_CFM_FUNCTION ClockCallMeWhen
  115.     ENDIF
  116.  
  117. ;
  118. ; pascal ComponentResult ClockCancelCallBack(ComponentInstance aClock, QTCallBack cb)
  119. ;
  120.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  121.         Macro
  122.         _ClockCancelCallBack
  123.             move.l              #$00040005,-(sp)
  124.             moveq               #0,D0
  125.             dc.w                $A82A
  126.         EndM
  127.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  128.         IMPORT_CFM_FUNCTION ClockCancelCallBack
  129.     ENDIF
  130.  
  131. ;
  132. ; pascal ComponentResult ClockRateChanged(ComponentInstance aClock, QTCallBack cb)
  133. ;
  134.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  135.         Macro
  136.         _ClockRateChanged
  137.             move.l              #$00040006,-(sp)
  138.             moveq               #0,D0
  139.             dc.w                $A82A
  140.         EndM
  141.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  142.         IMPORT_CFM_FUNCTION ClockRateChanged
  143.     ENDIF
  144.  
  145. ;
  146. ; pascal ComponentResult ClockTimeChanged(ComponentInstance aClock, QTCallBack cb)
  147. ;
  148.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  149.         Macro
  150.         _ClockTimeChanged
  151.             move.l              #$00040007,-(sp)
  152.             moveq               #0,D0
  153.             dc.w                $A82A
  154.         EndM
  155.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  156.         IMPORT_CFM_FUNCTION ClockTimeChanged
  157.     ENDIF
  158.  
  159. ;
  160. ; pascal ComponentResult ClockSetTimeBase(ComponentInstance aClock, TimeBase tb)
  161. ;
  162.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  163.         Macro
  164.         _ClockSetTimeBase
  165.             move.l              #$00040008,-(sp)
  166.             moveq               #0,D0
  167.             dc.w                $A82A
  168.         EndM
  169.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  170.         IMPORT_CFM_FUNCTION ClockSetTimeBase
  171.     ENDIF
  172.  
  173. ;
  174. ; pascal ComponentResult ClockStartStopChanged(ComponentInstance aClock, QTCallBack cb, Boolean startChanged, Boolean stopChanged)
  175. ;
  176.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  177.         Macro
  178.         _ClockStartStopChanged
  179.             move.l              #$00080009,-(sp)
  180.             moveq               #0,D0
  181.             dc.w                $A82A
  182.         EndM
  183.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  184.         IMPORT_CFM_FUNCTION ClockStartStopChanged
  185.     ENDIF
  186.  
  187. ;
  188. ; pascal ComponentResult ClockGetRate(ComponentInstance aClock, Fixed *rate)
  189. ;
  190.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  191.         Macro
  192.         _ClockGetRate
  193.             move.l              #$0004000A,-(sp)
  194.             moveq               #0,D0
  195.             dc.w                $A82A
  196.         EndM
  197.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  198.         IMPORT_CFM_FUNCTION ClockGetRate
  199.     ENDIF
  200.  
  201.  
  202.  
  203.  
  204.  
  205. StandardCompressionType            EQU        'scdi'
  206. StandardCompressionSubType        EQU        'imag'
  207. StandardCompressionSubTypeSound    EQU        'soun'
  208.  
  209. ;     Preference flags.
  210.  
  211. scListEveryCodec                EQU        $00000002
  212. scAllowZeroFrameRate            EQU        $00000004
  213. scAllowZeroKeyFrameRate            EQU        $00000008
  214. scShowBestDepth                    EQU        $00000010
  215. scUseMovableModal                EQU        $00000020
  216. scDisableFrameRateItem            EQU        $00000040
  217.  
  218. ;     Possible test flags for setting test image.
  219.  
  220. scPreferCropping                EQU        $01
  221. scPreferScaling                    EQU        $02
  222. scPreferScalingAndCropping        EQU        $03
  223. scDontDetermineSettingsFromTestImage EQU $04
  224.  
  225. ;     Dimensions of the image preview box.
  226.  
  227. scTestImageWidth                EQU        80
  228. scTestImageHeight                EQU        80
  229. ;     Possible items returned by hookProc.
  230.  
  231. scOKItem                        EQU        1
  232. scCancelItem                    EQU        2
  233. scCustomItem                    EQU        3
  234. ;     Result returned when user cancelled.
  235.  
  236. scUserCancelled                    EQU        1
  237.  
  238.  
  239. ;     Get/SetInfo structures.
  240.  
  241. SCSpatialSettings        RECORD 0
  242. codecType                 ds.l    1                ; offset: $0 (0)
  243. codec                     ds.l    1                ; offset: $4 (4)
  244. depth                     ds.w    1                ; offset: $8 (8)
  245. spatialQuality             ds.l    1                ; offset: $A (10)
  246. sizeof                     EQU *                    ; size:   $E (14)
  247.                         ENDR
  248. SCTemporalSettings        RECORD 0
  249. temporalQuality             ds.l    1                ; offset: $0 (0)
  250. frameRate                 ds.l    1                ; offset: $4 (4)
  251. keyFrameRate             ds.l    1                ; offset: $8 (8)
  252. sizeof                     EQU *                    ; size:   $C (12)
  253.                         ENDR
  254. SCDataRateSettings        RECORD 0
  255. dataRate                 ds.l    1                ; offset: $0 (0)
  256. frameDuration             ds.l    1                ; offset: $4 (4)
  257. minSpatialQuality         ds.l    1                ; offset: $8 (8)
  258. minTemporalQuality         ds.l    1                ; offset: $C (12)
  259. sizeof                     EQU *                    ; size:   $10 (16)
  260.                         ENDR
  261. SCExtendedProcs            RECORD 0
  262. filterProc                 ds.l    1                ; offset: $0 (0)
  263. hookProc                 ds.l    1                ; offset: $4 (4)
  264. refcon                     ds.l    1                ; offset: $8 (8)
  265. customName                 ds        Str31            ; offset: $C (12)
  266. sizeof                     EQU *                    ; size:   $2C (44)
  267.                         ENDR
  268. ;     Get/SetInfo selectors
  269.  
  270. scSpatialSettingsType            EQU        'sptl'                ; pointer to SCSpatialSettings struct
  271. scTemporalSettingsType            EQU        'tprl'                ; pointer to SCTemporalSettings struct
  272. scDataRateSettingsType            EQU        'drat'                ; pointer to SCDataRateSettings struct
  273. scColorTableType                EQU        'clut'                ; pointer to CTabHandle
  274. scProgressProcType                EQU        'prog'                ; pointer to ProgressRecord struct
  275. scExtendedProcsType                EQU        'xprc'                ; pointer to SCExtendedProcs struct
  276. scPreferenceFlagsType            EQU        'pref'                ; pointer to long
  277. scSettingsStateType                EQU        'ssta'                ; pointer to Handle
  278. scSequenceIDType                EQU        'sequ'                ; pointer to ImageSequence
  279. scWindowPositionType            EQU        'wndw'                ; pointer to Point
  280. scCodecFlagsType                EQU        'cflg'                ; pointer to CodecFlags
  281. scCodecSettingsType                EQU        'cdec'                ; pointer to Handle
  282. scForceKeyValueType                EQU        'ksim'                ; pointer to long
  283. scSoundSampleRateType            EQU        'ssrt'                ; pointer to UnsignedFixed
  284. scSoundSampleSizeType            EQU        'ssss'                ; pointer to short
  285. scSoundChannelCountType            EQU        'sscc'                ; pointer to short
  286. scSoundCompressionType            EQU        'ssct'                ; pointer to OSType
  287. scCompressionListType            EQU        'ctyl'                ; pointer to OSType Handle
  288. ;     scTypeNotFoundErr returned by Get/SetInfo when type cannot be found.
  289.  
  290.  
  291. SCParams                RECORD 0
  292. flags                     ds.l    1                ; offset: $0 (0)
  293. theCodecType             ds.l    1                ; offset: $4 (4)
  294. theCodec                 ds.l    1                ; offset: $8 (8)
  295. spatialQuality             ds.l    1                ; offset: $C (12)
  296. temporalQuality             ds.l    1                ; offset: $10 (16)
  297. depth                     ds.w    1                ; offset: $14 (20)
  298. frameRate                 ds.l    1                ; offset: $16 (22)
  299. keyFrameRate             ds.l    1                ; offset: $1A (26)
  300. reserved1                 ds.l    1                ; offset: $1E (30)
  301. reserved2                 ds.l    1                ; offset: $22 (34)
  302. sizeof                     EQU *                    ; size:   $26 (38)
  303.                         ENDR
  304.  
  305. scGetCompression                EQU        1
  306. scShowMotionSettings            EQU        $00000001
  307. scSettingsChangedItem            EQU        -1
  308.  
  309. scCompressFlagIgnoreIdenticalFrames EQU    1
  310. ;  QTAtomTypes for atoms found in settings atom containers
  311.  
  312. kQTSettingsVideo                EQU        'vide'                ; Container for video/image compression related atoms (Get/SetInfo selectors)
  313. kQTSettingsSound                EQU        'soun'                ; Container for sound compression related atoms (Get/SetInfo selectors)
  314.  
  315. ; * These are Progress procedures *
  316. ;
  317. ; pascal ComponentResult SCGetCompressionExtended(ComponentInstance ci, SCParams *params, Point where, SCModalFilterUPP filterProc, SCModalHookUPP hookProc, long refcon, StringPtr customName)
  318. ;
  319.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  320.         Macro
  321.         _SCGetCompressionExtended
  322.             move.l              #$00180001,-(sp)
  323.             moveq               #0,D0
  324.             dc.w                $A82A
  325.         EndM
  326.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  327.         IMPORT_CFM_FUNCTION SCGetCompressionExtended
  328.     ENDIF
  329.  
  330. ;
  331. ; pascal ComponentResult SCPositionRect(ComponentInstance ci, Rect *rp, Point *where)
  332. ;
  333.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  334.         Macro
  335.         _SCPositionRect
  336.             move.l              #$00080002,-(sp)
  337.             moveq               #0,D0
  338.             dc.w                $A82A
  339.         EndM
  340.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  341.         IMPORT_CFM_FUNCTION SCPositionRect
  342.     ENDIF
  343.  
  344. ;
  345. ; pascal ComponentResult SCPositionDialog(ComponentInstance ci, short id, Point *where)
  346. ;
  347.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  348.         Macro
  349.         _SCPositionDialog
  350.             move.l              #$00060003,-(sp)
  351.             moveq               #0,D0
  352.             dc.w                $A82A
  353.         EndM
  354.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  355.         IMPORT_CFM_FUNCTION SCPositionDialog
  356.     ENDIF
  357.  
  358. ;
  359. ; pascal ComponentResult SCSetTestImagePictHandle(ComponentInstance ci, PicHandle testPict, Rect *testRect, short testFlags)
  360. ;
  361.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  362.         Macro
  363.         _SCSetTestImagePictHandle
  364.             move.l              #$000A0004,-(sp)
  365.             moveq               #0,D0
  366.             dc.w                $A82A
  367.         EndM
  368.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  369.         IMPORT_CFM_FUNCTION SCSetTestImagePictHandle
  370.     ENDIF
  371.  
  372. ;
  373. ; pascal ComponentResult SCSetTestImagePictFile(ComponentInstance ci, short testFileRef, Rect *testRect, short testFlags)
  374. ;
  375.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  376.         Macro
  377.         _SCSetTestImagePictFile
  378.             move.l              #$00080005,-(sp)
  379.             moveq               #0,D0
  380.             dc.w                $A82A
  381.         EndM
  382.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  383.         IMPORT_CFM_FUNCTION SCSetTestImagePictFile
  384.     ENDIF
  385.  
  386. ;
  387. ; pascal ComponentResult SCSetTestImagePixMap(ComponentInstance ci, PixMapHandle testPixMap, Rect *testRect, short testFlags)
  388. ;
  389.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  390.         Macro
  391.         _SCSetTestImagePixMap
  392.             move.l              #$000A0006,-(sp)
  393.             moveq               #0,D0
  394.             dc.w                $A82A
  395.         EndM
  396.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  397.         IMPORT_CFM_FUNCTION SCSetTestImagePixMap
  398.     ENDIF
  399.  
  400. ;
  401. ; pascal ComponentResult SCGetBestDeviceRect(ComponentInstance ci, Rect *r)
  402. ;
  403.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  404.         Macro
  405.         _SCGetBestDeviceRect
  406.             move.l              #$00040007,-(sp)
  407.             moveq               #0,D0
  408.             dc.w                $A82A
  409.         EndM
  410.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  411.         IMPORT_CFM_FUNCTION SCGetBestDeviceRect
  412.     ENDIF
  413.  
  414.  
  415. ;
  416. ; pascal ComponentResult SCRequestImageSettings(ComponentInstance ci)
  417. ;
  418.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  419.         Macro
  420.         _SCRequestImageSettings
  421.             move.l              #$0000000A,-(sp)
  422.             moveq               #0,D0
  423.             dc.w                $A82A
  424.         EndM
  425.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  426.         IMPORT_CFM_FUNCTION SCRequestImageSettings
  427.     ENDIF
  428.  
  429. ;
  430. ; pascal ComponentResult SCCompressImage(ComponentInstance ci, PixMapHandle src, const Rect *srcRect, ImageDescriptionHandle *desc, Handle *data)
  431. ;
  432.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  433.         Macro
  434.         _SCCompressImage
  435.             move.l              #$0010000B,-(sp)
  436.             moveq               #0,D0
  437.             dc.w                $A82A
  438.         EndM
  439.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  440.         IMPORT_CFM_FUNCTION SCCompressImage
  441.     ENDIF
  442.  
  443. ;
  444. ; pascal ComponentResult SCCompressPicture(ComponentInstance ci, PicHandle srcPicture, PicHandle dstPicture)
  445. ;
  446.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  447.         Macro
  448.         _SCCompressPicture
  449.             move.l              #$0008000C,-(sp)
  450.             moveq               #0,D0
  451.             dc.w                $A82A
  452.         EndM
  453.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  454.         IMPORT_CFM_FUNCTION SCCompressPicture
  455.     ENDIF
  456.  
  457. ;
  458. ; pascal ComponentResult SCCompressPictureFile(ComponentInstance ci, short srcRefNum, short dstRefNum)
  459. ;
  460.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  461.         Macro
  462.         _SCCompressPictureFile
  463.             move.l              #$0004000D,-(sp)
  464.             moveq               #0,D0
  465.             dc.w                $A82A
  466.         EndM
  467.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  468.         IMPORT_CFM_FUNCTION SCCompressPictureFile
  469.     ENDIF
  470.  
  471. ;
  472. ; pascal ComponentResult SCRequestSequenceSettings(ComponentInstance ci)
  473. ;
  474.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  475.         Macro
  476.         _SCRequestSequenceSettings
  477.             move.l              #$0000000E,-(sp)
  478.             moveq               #0,D0
  479.             dc.w                $A82A
  480.         EndM
  481.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  482.         IMPORT_CFM_FUNCTION SCRequestSequenceSettings
  483.     ENDIF
  484.  
  485. ;
  486. ; pascal ComponentResult SCCompressSequenceBegin(ComponentInstance ci, PixMapHandle src, const Rect *srcRect, ImageDescriptionHandle *desc)
  487. ;
  488.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  489.         Macro
  490.         _SCCompressSequenceBegin
  491.             move.l              #$000C000F,-(sp)
  492.             moveq               #0,D0
  493.             dc.w                $A82A
  494.         EndM
  495.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  496.         IMPORT_CFM_FUNCTION SCCompressSequenceBegin
  497.     ENDIF
  498.  
  499. ;
  500. ; pascal ComponentResult SCCompressSequenceFrame(ComponentInstance ci, PixMapHandle src, const Rect *srcRect, Handle *data, long *dataSize, short *notSyncFlag)
  501. ;
  502.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  503.         Macro
  504.         _SCCompressSequenceFrame
  505.             move.l              #$00140010,-(sp)
  506.             moveq               #0,D0
  507.             dc.w                $A82A
  508.         EndM
  509.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  510.         IMPORT_CFM_FUNCTION SCCompressSequenceFrame
  511.     ENDIF
  512.  
  513. ;
  514. ; pascal ComponentResult SCCompressSequenceEnd(ComponentInstance ci)
  515. ;
  516.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  517.         Macro
  518.         _SCCompressSequenceEnd
  519.             move.l              #$00000011,-(sp)
  520.             moveq               #0,D0
  521.             dc.w                $A82A
  522.         EndM
  523.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  524.         IMPORT_CFM_FUNCTION SCCompressSequenceEnd
  525.     ENDIF
  526.  
  527. ;
  528. ; pascal ComponentResult SCDefaultPictHandleSettings(ComponentInstance ci, PicHandle srcPicture, short motion)
  529. ;
  530.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  531.         Macro
  532.         _SCDefaultPictHandleSettings
  533.             move.l              #$00060012,-(sp)
  534.             moveq               #0,D0
  535.             dc.w                $A82A
  536.         EndM
  537.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  538.         IMPORT_CFM_FUNCTION SCDefaultPictHandleSettings
  539.     ENDIF
  540.  
  541. ;
  542. ; pascal ComponentResult SCDefaultPictFileSettings(ComponentInstance ci, short srcRef, short motion)
  543. ;
  544.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  545.         Macro
  546.         _SCDefaultPictFileSettings
  547.             move.l              #$00040013,-(sp)
  548.             moveq               #0,D0
  549.             dc.w                $A82A
  550.         EndM
  551.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  552.         IMPORT_CFM_FUNCTION SCDefaultPictFileSettings
  553.     ENDIF
  554.  
  555. ;
  556. ; pascal ComponentResult SCDefaultPixMapSettings(ComponentInstance ci, PixMapHandle src, short motion)
  557. ;
  558.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  559.         Macro
  560.         _SCDefaultPixMapSettings
  561.             move.l              #$00060014,-(sp)
  562.             moveq               #0,D0
  563.             dc.w                $A82A
  564.         EndM
  565.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  566.         IMPORT_CFM_FUNCTION SCDefaultPixMapSettings
  567.     ENDIF
  568.  
  569. ;
  570. ; pascal ComponentResult SCGetInfo(ComponentInstance ci, OSType infoType, void *info)
  571. ;
  572.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  573.         Macro
  574.         _SCGetInfo
  575.             move.l              #$00080015,-(sp)
  576.             moveq               #0,D0
  577.             dc.w                $A82A
  578.         EndM
  579.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  580.         IMPORT_CFM_FUNCTION SCGetInfo
  581.     ENDIF
  582.  
  583. ;
  584. ; pascal ComponentResult SCSetInfo(ComponentInstance ci, OSType infoType, void *info)
  585. ;
  586.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  587.         Macro
  588.         _SCSetInfo
  589.             move.l              #$00080016,-(sp)
  590.             moveq               #0,D0
  591.             dc.w                $A82A
  592.         EndM
  593.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  594.         IMPORT_CFM_FUNCTION SCSetInfo
  595.     ENDIF
  596.  
  597. ;
  598. ; pascal ComponentResult SCNewGWorld(ComponentInstance ci, GWorldPtr *gwp, Rect *rp, GWorldFlags flags)
  599. ;
  600.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  601.         Macro
  602.         _SCNewGWorld
  603.             move.l              #$000C0017,-(sp)
  604.             moveq               #0,D0
  605.             dc.w                $A82A
  606.         EndM
  607.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  608.         IMPORT_CFM_FUNCTION SCNewGWorld
  609.     ENDIF
  610.  
  611. ;
  612. ; pascal ComponentResult SCSetCompressFlags(ComponentInstance ci, long flags)
  613. ;
  614.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  615.         Macro
  616.         _SCSetCompressFlags
  617.             move.l              #$00040018,-(sp)
  618.             moveq               #0,D0
  619.             dc.w                $A82A
  620.         EndM
  621.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  622.         IMPORT_CFM_FUNCTION SCSetCompressFlags
  623.     ENDIF
  624.  
  625. ;
  626. ; pascal ComponentResult SCGetCompressFlags(ComponentInstance ci, long *flags)
  627. ;
  628.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  629.         Macro
  630.         _SCGetCompressFlags
  631.             move.l              #$00040019,-(sp)
  632.             moveq               #0,D0
  633.             dc.w                $A82A
  634.         EndM
  635.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  636.         IMPORT_CFM_FUNCTION SCGetCompressFlags
  637.     ENDIF
  638.  
  639. ;
  640. ; pascal ComponentResult SCGetSettingsAsText(ComponentInstance ci, Handle *text)
  641. ;
  642.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  643.         Macro
  644.         _SCGetSettingsAsText
  645.             move.l              #$0004001A,-(sp)
  646.             moveq               #0,D0
  647.             dc.w                $A82A
  648.         EndM
  649.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  650.         IMPORT_CFM_FUNCTION SCGetSettingsAsText
  651.     ENDIF
  652.  
  653. ;
  654. ; pascal ComponentResult SCGetSettingsAsAtomContainer(ComponentInstance ci, QTAtomContainer *settings)
  655. ;
  656.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  657.         Macro
  658.         _SCGetSettingsAsAtomContainer
  659.             move.l              #$0004001B,-(sp)
  660.             moveq               #0,D0
  661.             dc.w                $A82A
  662.         EndM
  663.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  664.         IMPORT_CFM_FUNCTION SCGetSettingsAsAtomContainer
  665.     ENDIF
  666.  
  667. ;
  668. ; pascal ComponentResult SCSetSettingsFromAtomContainer(ComponentInstance ci, QTAtomContainer settings)
  669. ;
  670.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  671.         Macro
  672.         _SCSetSettingsFromAtomContainer
  673.             move.l              #$0004001C,-(sp)
  674.             moveq               #0,D0
  675.             dc.w                $A82A
  676.         EndM
  677.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  678.         IMPORT_CFM_FUNCTION SCSetSettingsFromAtomContainer
  679.     ENDIF
  680.  
  681.  
  682.  
  683.  
  684.  
  685. TweenComponentType                EQU        'twen'
  686. ; typedef ComponentInstance             TweenerComponent
  687.  
  688.  
  689.  
  690. TweenRecord                RECORD 0
  691. version                     ds.l    1                ; offset: $0 (0)
  692. container                 ds.l    1                ; offset: $4 (4)
  693. tweenAtom                 ds.l    1                ; offset: $8 (8)
  694. dataAtom                 ds.l    1                ; offset: $C (12)
  695. percent                     ds.l    1                ; offset: $10 (16)
  696. dataProc                 ds.l    1                ; offset: $14 (20)
  697. private1                 ds.l    1                ; offset: $18 (24)
  698. private2                 ds.l    1                ; offset: $1C (28)
  699. sizeof                     EQU *                    ; size:   $20 (32)
  700.                         ENDR
  701. TweenV1Record            RECORD 0
  702. version                     ds.l    1                ; offset: $0 (0)
  703. container                 ds.l    1                ; offset: $4 (4)
  704. tweenAtom                 ds.l    1                ; offset: $8 (8)
  705. dataAtom                 ds.l    1                ; offset: $C (12)
  706. percent                     ds.l    1                ; offset: $10 (16)
  707. dataProc                 ds.l    1                ; offset: $14 (20)
  708. private1                 ds.l    1                ; offset: $18 (24)
  709. private2                 ds.l    1                ; offset: $1C (28)
  710. fractPercent             ds.l    1                ; offset: $20 (32)
  711. sizeof                     EQU *                    ; size:   $24 (36)
  712.                         ENDR
  713. ;
  714. ; pascal ComponentResult TweenerInitialize(TweenerComponent tc, QTAtomContainer container, QTAtom tweenAtom, QTAtom dataAtom)
  715. ;
  716.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  717.         Macro
  718.         _TweenerInitialize
  719.             move.l              #$000C0001,-(sp)
  720.             moveq               #0,D0
  721.             dc.w                $A82A
  722.         EndM
  723.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  724.         IMPORT_CFM_FUNCTION TweenerInitialize
  725.     ENDIF
  726.  
  727. ;
  728. ; pascal ComponentResult TweenerDoTween(TweenerComponent tc, TweenRecord *tr)
  729. ;
  730.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  731.         Macro
  732.         _TweenerDoTween
  733.             move.l              #$00040002,-(sp)
  734.             moveq               #0,D0
  735.             dc.w                $A82A
  736.         EndM
  737.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  738.         IMPORT_CFM_FUNCTION TweenerDoTween
  739.     ENDIF
  740.  
  741. ;
  742. ; pascal ComponentResult TweenerReset(TweenerComponent tc)
  743. ;
  744.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  745.         Macro
  746.         _TweenerReset
  747.             move.l              #$00000003,-(sp)
  748.             moveq               #0,D0
  749.             dc.w                $A82A
  750.         EndM
  751.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  752.         IMPORT_CFM_FUNCTION TweenerReset
  753.     ENDIF
  754.  
  755.  
  756.  
  757.  
  758. TCSourceRefNameType                EQU        'name'
  759.  
  760. tcDropFrame                        EQU        $01
  761. tc24HourMax                        EQU        $02
  762. tcNegTimesOK                    EQU        $04
  763. tcCounter                        EQU        $08
  764. TimeCodeDef                RECORD 0
  765. flags                     ds.l    1                ; offset: $0 (0)        ;  drop-frame, etc.
  766. fTimeScale                 ds.l    1                ; offset: $4 (4)        ;  time scale of frameDuration (eg. 2997)
  767. frameDuration             ds.l    1                ; offset: $8 (8)        ;  duration of each frame (eg. 100)
  768. numFrames                 ds.b    1                ; offset: $C (12)        ;  frames/sec for timecode (eg. 30) OR frames/tick for counter mode
  769. padding                     ds.b    1                ; offset: $D (13)        ;  unused padding byte
  770. sizeof                     EQU *                    ; size:   $E (14)
  771.                         ENDR
  772.  
  773. tctNegFlag                        EQU        $80                    ; negative bit is in minutes
  774. TimeCodeTime            RECORD 0
  775. hours                     ds.b    1                ; offset: $0 (0)
  776. minutes                     ds.b    1                ; offset: $1 (1)
  777. seconds                     ds.b    1                ; offset: $2 (2)
  778. frames                     ds.b    1                ; offset: $3 (3)
  779. sizeof                     EQU *                    ; size:   $4 (4)
  780.                         ENDR
  781. TimeCodeCounter            RECORD 0
  782. counter                     ds.l    1                ; offset: $0 (0)
  783. sizeof                     EQU *                    ; size:   $4 (4)
  784.                         ENDR
  785. TimeCodeDescription        RECORD 0
  786. descSize                 ds.l    1                ; offset: $0 (0)        ;  standard sample description header
  787. dataFormat                 ds.l    1                ; offset: $4 (4)
  788. resvd1                     ds.l    1                ; offset: $8 (8)
  789. resvd2                     ds.w    1                ; offset: $C (12)
  790. dataRefIndex             ds.w    1                ; offset: $E (14)
  791. flags                     ds.l    1                ; offset: $10 (16)        ;  timecode specific stuff
  792. timeCodeDef                 ds        TimeCodeDef        ; offset: $14 (20)
  793. srcRef                     ds.l    1                ; offset: $22 (34) <-- really an array of length one
  794. sizeof                     EQU *                    ; size:   $26 (38)
  795.                         ENDR
  796. ; typedef struct TimeCodeDescription *    TimeCodeDescriptionPtr
  797.  
  798. ; typedef TimeCodeDescriptionPtr *        TimeCodeDescriptionHandle
  799.  
  800.  
  801. tcdfShowTimeCode                EQU        $01
  802.  
  803. TCTextOptions            RECORD 0
  804. txFont                     ds.w    1                ; offset: $0 (0)
  805. txFace                     ds.w    1                ; offset: $2 (2)
  806. txSize                     ds.w    1                ; offset: $4 (4)
  807. pad                         ds.w    1                ; offset: $6 (6)        ;  let's make it longword aligned - thanks.. 
  808. foreColor                 ds        RGBColor        ; offset: $8 (8)
  809. backColor                 ds        RGBColor        ; offset: $E (14)
  810. sizeof                     EQU *                    ; size:   $14 (20)
  811.                         ENDR
  812. ; typedef struct TCTextOptions *        TCTextOptionsPtr
  813.  
  814. ;
  815. ; pascal HandlerError TCGetCurrentTimeCode(MediaHandler mh, long *frameNum, TimeCodeDef *tcdef, TimeCodeRecord *tcrec, UserData *srcRefH)
  816. ;
  817.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  818.         Macro
  819.         _TCGetCurrentTimeCode
  820.             move.l              #$00100101,-(sp)
  821.             moveq               #0,D0
  822.             dc.w                $A82A
  823.         EndM
  824.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  825.         IMPORT_CFM_FUNCTION TCGetCurrentTimeCode
  826.     ENDIF
  827.  
  828. ;
  829. ; pascal HandlerError TCGetTimeCodeAtTime(MediaHandler mh, TimeValue mediaTime, long *frameNum, TimeCodeDef *tcdef, TimeCodeRecord *tcdata, UserData *srcRefH)
  830. ;
  831.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  832.         Macro
  833.         _TCGetTimeCodeAtTime
  834.             move.l              #$00140102,-(sp)
  835.             moveq               #0,D0
  836.             dc.w                $A82A
  837.         EndM
  838.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  839.         IMPORT_CFM_FUNCTION TCGetTimeCodeAtTime
  840.     ENDIF
  841.  
  842. ;
  843. ; pascal HandlerError TCTimeCodeToString(MediaHandler mh, TimeCodeDef *tcdef, TimeCodeRecord *tcrec, StringPtr tcStr)
  844. ;
  845.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  846.         Macro
  847.         _TCTimeCodeToString
  848.             move.l              #$000C0103,-(sp)
  849.             moveq               #0,D0
  850.             dc.w                $A82A
  851.         EndM
  852.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  853.         IMPORT_CFM_FUNCTION TCTimeCodeToString
  854.     ENDIF
  855.  
  856. ;
  857. ; pascal HandlerError TCTimeCodeToFrameNumber(MediaHandler mh, TimeCodeDef *tcdef, TimeCodeRecord *tcrec, long *frameNumber)
  858. ;
  859.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  860.         Macro
  861.         _TCTimeCodeToFrameNumber
  862.             move.l              #$000C0104,-(sp)
  863.             moveq               #0,D0
  864.             dc.w                $A82A
  865.         EndM
  866.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  867.         IMPORT_CFM_FUNCTION TCTimeCodeToFrameNumber
  868.     ENDIF
  869.  
  870. ;
  871. ; pascal HandlerError TCFrameNumberToTimeCode(MediaHandler mh, long frameNumber, TimeCodeDef *tcdef, TimeCodeRecord *tcrec)
  872. ;
  873.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  874.         Macro
  875.         _TCFrameNumberToTimeCode
  876.             move.l              #$000C0105,-(sp)
  877.             moveq               #0,D0
  878.             dc.w                $A82A
  879.         EndM
  880.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  881.         IMPORT_CFM_FUNCTION TCFrameNumberToTimeCode
  882.     ENDIF
  883.  
  884. ;
  885. ; pascal HandlerError TCGetSourceRef(MediaHandler mh, TimeCodeDescriptionHandle tcdH, UserData *srefH)
  886. ;
  887.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  888.         Macro
  889.         _TCGetSourceRef
  890.             move.l              #$00080106,-(sp)
  891.             moveq               #0,D0
  892.             dc.w                $A82A
  893.         EndM
  894.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  895.         IMPORT_CFM_FUNCTION TCGetSourceRef
  896.     ENDIF
  897.  
  898. ;
  899. ; pascal HandlerError TCSetSourceRef(MediaHandler mh, TimeCodeDescriptionHandle tcdH, UserData srefH)
  900. ;
  901.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  902.         Macro
  903.         _TCSetSourceRef
  904.             move.l              #$00080107,-(sp)
  905.             moveq               #0,D0
  906.             dc.w                $A82A
  907.         EndM
  908.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  909.         IMPORT_CFM_FUNCTION TCSetSourceRef
  910.     ENDIF
  911.  
  912. ;
  913. ; pascal HandlerError TCSetTimeCodeFlags(MediaHandler mh, long flags, long flagsMask)
  914. ;
  915.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  916.         Macro
  917.         _TCSetTimeCodeFlags
  918.             move.l              #$00080108,-(sp)
  919.             moveq               #0,D0
  920.             dc.w                $A82A
  921.         EndM
  922.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  923.         IMPORT_CFM_FUNCTION TCSetTimeCodeFlags
  924.     ENDIF
  925.  
  926. ;
  927. ; pascal HandlerError TCGetTimeCodeFlags(MediaHandler mh, long *flags)
  928. ;
  929.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  930.         Macro
  931.         _TCGetTimeCodeFlags
  932.             move.l              #$00040109,-(sp)
  933.             moveq               #0,D0
  934.             dc.w                $A82A
  935.         EndM
  936.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  937.         IMPORT_CFM_FUNCTION TCGetTimeCodeFlags
  938.     ENDIF
  939.  
  940. ;
  941. ; pascal HandlerError TCSetDisplayOptions(MediaHandler mh, TCTextOptionsPtr textOptions)
  942. ;
  943.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  944.         Macro
  945.         _TCSetDisplayOptions
  946.             move.l              #$0004010A,-(sp)
  947.             moveq               #0,D0
  948.             dc.w                $A82A
  949.         EndM
  950.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  951.         IMPORT_CFM_FUNCTION TCSetDisplayOptions
  952.     ENDIF
  953.  
  954. ;
  955. ; pascal HandlerError TCGetDisplayOptions(MediaHandler mh, TCTextOptionsPtr textOptions)
  956. ;
  957.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  958.         Macro
  959.         _TCGetDisplayOptions
  960.             move.l              #$0004010B,-(sp)
  961.             moveq               #0,D0
  962.             dc.w                $A82A
  963.         EndM
  964.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  965.         IMPORT_CFM_FUNCTION TCGetDisplayOptions
  966.     ENDIF
  967.  
  968.  
  969.  
  970. ; typedef ComponentInstance             MovieImportComponent
  971.  
  972. ; typedef ComponentInstance             MovieExportComponent
  973.  
  974.  
  975. MovieImportType                    EQU        'eat '
  976. MovieExportType                    EQU        'spit'
  977.  
  978. canMovieImportHandles            EQU        $01
  979. canMovieImportFiles                EQU        $02
  980. hasMovieImportUserInterface        EQU        $04
  981. canMovieExportHandles            EQU        $08
  982. canMovieExportFiles                EQU        $10
  983. hasMovieExportUserInterface        EQU        $20
  984. dontAutoFileMovieImport            EQU        $40
  985. canMovieExportAuxDataHandle        EQU        $80
  986. canMovieImportValidateHandles    EQU        $0100
  987. canMovieImportValidateFile        EQU        $0200
  988. dontRegisterWithEasyOpen        EQU        $0400
  989. canMovieImportInPlace            EQU        $0800
  990. movieImportSubTypeIsFileExtension EQU    $1000
  991. canMovieImportPartial            EQU        $2000
  992. hasMovieImportMIMEList            EQU        $4000
  993. canMovieExportFromProcedures    EQU        $8000
  994. canMovieExportValidateMovie        EQU        $00010000
  995. movieExportNeedsResourceFork    EQU        $00020000
  996. canMovieImportDataReferences    EQU        $00040000
  997. movieExportMustGetSourceMediaType EQU    $00080000
  998. reservedForUseByGraphicsImporters EQU    $00800000
  999.  
  1000. movieImportCreateTrack            EQU        1
  1001. movieImportInParallel            EQU        2
  1002. movieImportMustUseTrack            EQU        4
  1003.  
  1004. movieImportResultUsedMultipleTracks EQU    8
  1005.  
  1006. kMovieExportTextOnly            EQU        0
  1007. kMovieExportAbsoluteTime        EQU        1
  1008. kMovieExportRelativeTime        EQU        2
  1009.  
  1010. kMIDIImportSilenceBefore        EQU        $01
  1011. kMIDIImportSilenceAfter            EQU        $02
  1012. kMIDIImport20Playable            EQU        $04
  1013. kMIDIImportWantLyrics            EQU        $08
  1014.  
  1015. kMimeInfoMimeTypeTag            EQU        'mime'
  1016. kMimeInfoFileExtensionTag        EQU        'ext '
  1017. kMimeInfoDescriptionTag            EQU        'desc'
  1018.  
  1019. kQTFileTypeAIFF                    EQU        'AIFF'
  1020. kQTFileTypeAIFC                    EQU        'AIFC'
  1021. kQTFileTypeDVC                    EQU        'dvc!'
  1022. kQTFileTypeMIDI                    EQU        'Midi'
  1023. kQTFileTypePicture                EQU        'PICT'
  1024. kQTFileTypeMovie                EQU        'MooV'
  1025. kQTFileTypeText                    EQU        'TEXT'
  1026. kQTFileTypeWave                    EQU        'WAVE'
  1027. kQTFileTypeSystemSevenSound        EQU        'sfil'
  1028. kQTFileTypeMuLaw                EQU        'ULAW'
  1029. kQTFileTypeAVI                    EQU        'VfW '
  1030. kQTFileTypeSoundDesignerII        EQU        'Sd2f'
  1031. kQTFileTypeAudioCDTrack            EQU        'trak'
  1032. kQTFileTypePICS                    EQU        'PICS'
  1033. kQTFileTypeGIF                    EQU        'GIFf'
  1034. kQTFileTypePhotoShop            EQU        '8BPS'
  1035. kQTFileTypeSGIImage                EQU        '.SGI'
  1036. kQTFileTypeBMP                    EQU        'BMPf'
  1037. kQTFileTypeJPEG                    EQU        'JPEG'
  1038. kQTFileTypeJFIF                    EQU        'JPEG'
  1039. kQTFileTypeMacPaint                EQU        'PNTG'
  1040. kQTFileTypeTargaImage            EQU        'TPIC'
  1041. kQTFileTypeQuickDrawGXPicture    EQU        'qdgx'
  1042. kQTFileTypeQuickTimeImage        EQU        'qtif'
  1043. kQTFileType3DMF                    EQU        '3DMF'
  1044. ;  QTAtomTypes for atoms in import/export settings containers
  1045.  
  1046. kQTSettingsEffect                EQU        'effe'                ; Parent atom whose contents are atoms of an effects description
  1047. kQTSettingsMIDI                    EQU        'MIDI'                ; MIDI import related container
  1048. kQTSettingsMIDISettingFlags        EQU        'sttg'                ; MIDI import settings    (UInt32)
  1049. kQTSettingsText                    EQU        'text'                ; Text related container
  1050. kQTSettingsTextDescription        EQU        'desc'                ; Text settings (TextDescription record)
  1051. kQTSettingsTextSize                EQU        'size'                ; Width/height to create (FixedPoint)
  1052. kQTSettingsTextSettingFlags        EQU        'sttg'                ; Text export settings (UInt32)
  1053. kQTSettingsTextTimeFraction        EQU        'timf'                ; Movie time fraction for export (UInt32)
  1054. kQTSettingsTime                    EQU        'time'                ; Time related container
  1055. kQTSettingsAudioCDTrack            EQU        'trak'                ; Audio CD track related container
  1056. kQTSettingsAudioCDTrackRateShift EQU    'rshf'                ; Rate shift to be performed (SInt16)
  1057.  
  1058.  
  1059.  
  1060. MovieExportGetDataParams RECORD 0
  1061. recordSize                 ds.l    1                ; offset: $0 (0)
  1062. trackID                     ds.l    1                ; offset: $4 (4)
  1063. sourceTimeScale             ds.l    1                ; offset: $8 (8)
  1064. requestedTime             ds.l    1                ; offset: $C (12)
  1065. actualTime                 ds.l    1                ; offset: $10 (16)
  1066. dataPtr                     ds.l    1                ; offset: $14 (20)
  1067. dataSize                 ds.l    1                ; offset: $18 (24)
  1068. desc                     ds.l    1                ; offset: $1C (28)
  1069. descType                 ds.l    1                ; offset: $20 (32)
  1070. descSeed                 ds.l    1                ; offset: $24 (36)
  1071. requestedSampleCount     ds.l    1                ; offset: $28 (40)
  1072. actualSampleCount         ds.l    1                ; offset: $2C (44)
  1073. durationPerSample         ds.l    1                ; offset: $30 (48)
  1074. sampleFlags                 ds.l    1                ; offset: $34 (52)
  1075. sizeof                     EQU *                    ; size:   $38 (56)
  1076.                         ENDR
  1077. ;
  1078. ; pascal ComponentResult MovieImportHandle(MovieImportComponent ci, Handle dataH, Movie theMovie, Track targetTrack, Track *usedTrack, TimeValue atTime, TimeValue *addedDuration, long inFlags, long *outFlags)
  1079. ;
  1080.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1081.         Macro
  1082.         _MovieImportHandle
  1083.             move.l              #$00200001,-(sp)
  1084.             moveq               #0,D0
  1085.             dc.w                $A82A
  1086.         EndM
  1087.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1088.         IMPORT_CFM_FUNCTION MovieImportHandle
  1089.     ENDIF
  1090.  
  1091. ;
  1092. ; pascal ComponentResult MovieImportFile(MovieImportComponent ci, const FSSpec *theFile, Movie theMovie, Track targetTrack, Track *usedTrack, TimeValue atTime, TimeValue *addedDuration, long inFlags, long *outFlags)
  1093. ;
  1094.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1095.         Macro
  1096.         _MovieImportFile
  1097.             move.l              #$00200002,-(sp)
  1098.             moveq               #0,D0
  1099.             dc.w                $A82A
  1100.         EndM
  1101.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1102.         IMPORT_CFM_FUNCTION MovieImportFile
  1103.     ENDIF
  1104.  
  1105. ;
  1106. ; pascal ComponentResult MovieImportSetSampleDuration(MovieImportComponent ci, TimeValue duration, TimeScale scale)
  1107. ;
  1108.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1109.         Macro
  1110.         _MovieImportSetSampleDuration
  1111.             move.l              #$00080003,-(sp)
  1112.             moveq               #0,D0
  1113.             dc.w                $A82A
  1114.         EndM
  1115.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1116.         IMPORT_CFM_FUNCTION MovieImportSetSampleDuration
  1117.     ENDIF
  1118.  
  1119. ;
  1120. ; pascal ComponentResult MovieImportSetSampleDescription(MovieImportComponent ci, SampleDescriptionHandle desc, OSType mediaType)
  1121. ;
  1122.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1123.         Macro
  1124.         _MovieImportSetSampleDescription
  1125.             move.l              #$00080004,-(sp)
  1126.             moveq               #0,D0
  1127.             dc.w                $A82A
  1128.         EndM
  1129.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1130.         IMPORT_CFM_FUNCTION MovieImportSetSampleDescription
  1131.     ENDIF
  1132.  
  1133. ;
  1134. ; pascal ComponentResult MovieImportSetMediaFile(MovieImportComponent ci, AliasHandle alias)
  1135. ;
  1136.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1137.         Macro
  1138.         _MovieImportSetMediaFile
  1139.             move.l              #$00040005,-(sp)
  1140.             moveq               #0,D0
  1141.             dc.w                $A82A
  1142.         EndM
  1143.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1144.         IMPORT_CFM_FUNCTION MovieImportSetMediaFile
  1145.     ENDIF
  1146.  
  1147. ;
  1148. ; pascal ComponentResult MovieImportSetDimensions(MovieImportComponent ci, Fixed width, Fixed height)
  1149. ;
  1150.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1151.         Macro
  1152.         _MovieImportSetDimensions
  1153.             move.l              #$00080006,-(sp)
  1154.             moveq               #0,D0
  1155.             dc.w                $A82A
  1156.         EndM
  1157.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1158.         IMPORT_CFM_FUNCTION MovieImportSetDimensions
  1159.     ENDIF
  1160.  
  1161. ;
  1162. ; pascal ComponentResult MovieImportSetChunkSize(MovieImportComponent ci, long chunkSize)
  1163. ;
  1164.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1165.         Macro
  1166.         _MovieImportSetChunkSize
  1167.             move.l              #$00040007,-(sp)
  1168.             moveq               #0,D0
  1169.             dc.w                $A82A
  1170.         EndM
  1171.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1172.         IMPORT_CFM_FUNCTION MovieImportSetChunkSize
  1173.     ENDIF
  1174.  
  1175. ;
  1176. ; pascal ComponentResult MovieImportSetProgressProc(MovieImportComponent ci, MovieProgressUPP proc, long refcon)
  1177. ;
  1178.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1179.         Macro
  1180.         _MovieImportSetProgressProc
  1181.             move.l              #$00080008,-(sp)
  1182.             moveq               #0,D0
  1183.             dc.w                $A82A
  1184.         EndM
  1185.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1186.         IMPORT_CFM_FUNCTION MovieImportSetProgressProc
  1187.     ENDIF
  1188.  
  1189. ;
  1190. ; pascal ComponentResult MovieImportSetAuxiliaryData(MovieImportComponent ci, Handle data, OSType handleType)
  1191. ;
  1192.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1193.         Macro
  1194.         _MovieImportSetAuxiliaryData
  1195.             move.l              #$00080009,-(sp)
  1196.             moveq               #0,D0
  1197.             dc.w                $A82A
  1198.         EndM
  1199.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1200.         IMPORT_CFM_FUNCTION MovieImportSetAuxiliaryData
  1201.     ENDIF
  1202.  
  1203. ;
  1204. ; pascal ComponentResult MovieImportSetFromScrap(MovieImportComponent ci, Boolean fromScrap)
  1205. ;
  1206.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1207.         Macro
  1208.         _MovieImportSetFromScrap
  1209.             move.l              #$0002000A,-(sp)
  1210.             moveq               #0,D0
  1211.             dc.w                $A82A
  1212.         EndM
  1213.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1214.         IMPORT_CFM_FUNCTION MovieImportSetFromScrap
  1215.     ENDIF
  1216.  
  1217. ;
  1218. ; pascal ComponentResult MovieImportDoUserDialog(MovieImportComponent ci, const FSSpec *theFile, Handle theData, Boolean *canceled)
  1219. ;
  1220.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1221.         Macro
  1222.         _MovieImportDoUserDialog
  1223.             move.l              #$000C000B,-(sp)
  1224.             moveq               #0,D0
  1225.             dc.w                $A82A
  1226.         EndM
  1227.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1228.         IMPORT_CFM_FUNCTION MovieImportDoUserDialog
  1229.     ENDIF
  1230.  
  1231. ;
  1232. ; pascal ComponentResult MovieImportSetDuration(MovieImportComponent ci, TimeValue duration)
  1233. ;
  1234.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1235.         Macro
  1236.         _MovieImportSetDuration
  1237.             move.l              #$0004000C,-(sp)
  1238.             moveq               #0,D0
  1239.             dc.w                $A82A
  1240.         EndM
  1241.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1242.         IMPORT_CFM_FUNCTION MovieImportSetDuration
  1243.     ENDIF
  1244.  
  1245. ;
  1246. ; pascal ComponentResult MovieImportGetAuxiliaryDataType(MovieImportComponent ci, OSType *auxType)
  1247. ;
  1248.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1249.         Macro
  1250.         _MovieImportGetAuxiliaryDataType
  1251.             move.l              #$0004000D,-(sp)
  1252.             moveq               #0,D0
  1253.             dc.w                $A82A
  1254.         EndM
  1255.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1256.         IMPORT_CFM_FUNCTION MovieImportGetAuxiliaryDataType
  1257.     ENDIF
  1258.  
  1259. ;
  1260. ; pascal ComponentResult MovieImportValidate(MovieImportComponent ci, const FSSpec *theFile, Handle theData, Boolean *valid)
  1261. ;
  1262.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1263.         Macro
  1264.         _MovieImportValidate
  1265.             move.l              #$000C000E,-(sp)
  1266.             moveq               #0,D0
  1267.             dc.w                $A82A
  1268.         EndM
  1269.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1270.         IMPORT_CFM_FUNCTION MovieImportValidate
  1271.     ENDIF
  1272.  
  1273. ;
  1274. ; pascal ComponentResult MovieImportGetFileType(MovieImportComponent ci, OSType *fileType)
  1275. ;
  1276.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1277.         Macro
  1278.         _MovieImportGetFileType
  1279.             move.l              #$0004000F,-(sp)
  1280.             moveq               #0,D0
  1281.             dc.w                $A82A
  1282.         EndM
  1283.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1284.         IMPORT_CFM_FUNCTION MovieImportGetFileType
  1285.     ENDIF
  1286.  
  1287. ;
  1288. ; pascal ComponentResult MovieImportDataRef(MovieImportComponent ci, Handle dataRef, OSType dataRefType, Movie theMovie, Track targetTrack, Track *usedTrack, TimeValue atTime, TimeValue *addedDuration, long inFlags, long *outFlags)
  1289. ;
  1290.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1291.         Macro
  1292.         _MovieImportDataRef
  1293.             move.l              #$00240010,-(sp)
  1294.             moveq               #0,D0
  1295.             dc.w                $A82A
  1296.         EndM
  1297.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1298.         IMPORT_CFM_FUNCTION MovieImportDataRef
  1299.     ENDIF
  1300.  
  1301. ;
  1302. ; pascal ComponentResult MovieImportGetSampleDescription(MovieImportComponent ci, SampleDescriptionHandle *desc, OSType *mediaType)
  1303. ;
  1304.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1305.         Macro
  1306.         _MovieImportGetSampleDescription
  1307.             move.l              #$00080011,-(sp)
  1308.             moveq               #0,D0
  1309.             dc.w                $A82A
  1310.         EndM
  1311.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1312.         IMPORT_CFM_FUNCTION MovieImportGetSampleDescription
  1313.     ENDIF
  1314.  
  1315. ;
  1316. ; pascal ComponentResult MovieImportGetMIMETypeList(MovieImportComponent ci, QTAtomContainer *mimeInfo)
  1317. ;
  1318.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1319.         Macro
  1320.         _MovieImportGetMIMETypeList
  1321.             move.l              #$00040012,-(sp)
  1322.             moveq               #0,D0
  1323.             dc.w                $A82A
  1324.         EndM
  1325.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1326.         IMPORT_CFM_FUNCTION MovieImportGetMIMETypeList
  1327.     ENDIF
  1328.  
  1329. ;
  1330. ; pascal ComponentResult MovieImportSetOffsetAndLimit(MovieImportComponent ci, unsigned long offset, unsigned long limit)
  1331. ;
  1332.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1333.         Macro
  1334.         _MovieImportSetOffsetAndLimit
  1335.             move.l              #$00080013,-(sp)
  1336.             moveq               #0,D0
  1337.             dc.w                $A82A
  1338.         EndM
  1339.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1340.         IMPORT_CFM_FUNCTION MovieImportSetOffsetAndLimit
  1341.     ENDIF
  1342.  
  1343. ;
  1344. ; pascal ComponentResult MovieImportGetSettingsAsAtomContainer(MovieImportComponent ci, QTAtomContainer *settings)
  1345. ;
  1346.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1347.         Macro
  1348.         _MovieImportGetSettingsAsAtomContainer
  1349.             move.l              #$00040014,-(sp)
  1350.             moveq               #0,D0
  1351.             dc.w                $A82A
  1352.         EndM
  1353.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1354.         IMPORT_CFM_FUNCTION MovieImportGetSettingsAsAtomContainer
  1355.     ENDIF
  1356.  
  1357. ;
  1358. ; pascal ComponentResult MovieImportSetSettingsFromAtomContainer(MovieImportComponent ci, QTAtomContainer settings)
  1359. ;
  1360.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1361.         Macro
  1362.         _MovieImportSetSettingsFromAtomContainer
  1363.             move.l              #$00040015,-(sp)
  1364.             moveq               #0,D0
  1365.             dc.w                $A82A
  1366.         EndM
  1367.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1368.         IMPORT_CFM_FUNCTION MovieImportSetSettingsFromAtomContainer
  1369.     ENDIF
  1370.  
  1371. ;
  1372. ; pascal ComponentResult MovieExportToHandle(MovieExportComponent ci, Handle dataH, Movie theMovie, Track onlyThisTrack, TimeValue startTime, TimeValue duration)
  1373. ;
  1374.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1375.         Macro
  1376.         _MovieExportToHandle
  1377.             move.l              #$00140080,-(sp)
  1378.             moveq               #0,D0
  1379.             dc.w                $A82A
  1380.         EndM
  1381.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1382.         IMPORT_CFM_FUNCTION MovieExportToHandle
  1383.     ENDIF
  1384.  
  1385. ;
  1386. ; pascal ComponentResult MovieExportToFile(MovieExportComponent ci, const FSSpec *theFile, Movie theMovie, Track onlyThisTrack, TimeValue startTime, TimeValue duration)
  1387. ;
  1388.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1389.         Macro
  1390.         _MovieExportToFile
  1391.             move.l              #$00140081,-(sp)
  1392.             moveq               #0,D0
  1393.             dc.w                $A82A
  1394.         EndM
  1395.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1396.         IMPORT_CFM_FUNCTION MovieExportToFile
  1397.     ENDIF
  1398.  
  1399. ;
  1400. ; pascal ComponentResult MovieExportGetAuxiliaryData(MovieExportComponent ci, Handle dataH, OSType *handleType)
  1401. ;
  1402.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1403.         Macro
  1404.         _MovieExportGetAuxiliaryData
  1405.             move.l              #$00080083,-(sp)
  1406.             moveq               #0,D0
  1407.             dc.w                $A82A
  1408.         EndM
  1409.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1410.         IMPORT_CFM_FUNCTION MovieExportGetAuxiliaryData
  1411.     ENDIF
  1412.  
  1413. ;
  1414. ; pascal ComponentResult MovieExportSetProgressProc(MovieExportComponent ci, MovieProgressUPP proc, long refcon)
  1415. ;
  1416.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1417.         Macro
  1418.         _MovieExportSetProgressProc
  1419.             move.l              #$00080084,-(sp)
  1420.             moveq               #0,D0
  1421.             dc.w                $A82A
  1422.         EndM
  1423.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1424.         IMPORT_CFM_FUNCTION MovieExportSetProgressProc
  1425.     ENDIF
  1426.  
  1427. ;
  1428. ; pascal ComponentResult MovieExportSetSampleDescription(MovieExportComponent ci, SampleDescriptionHandle desc, OSType mediaType)
  1429. ;
  1430.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1431.         Macro
  1432.         _MovieExportSetSampleDescription
  1433.             move.l              #$00080085,-(sp)
  1434.             moveq               #0,D0
  1435.             dc.w                $A82A
  1436.         EndM
  1437.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1438.         IMPORT_CFM_FUNCTION MovieExportSetSampleDescription
  1439.     ENDIF
  1440.  
  1441. ;
  1442. ; pascal ComponentResult MovieExportDoUserDialog(MovieExportComponent ci, Movie theMovie, Track onlyThisTrack, TimeValue startTime, TimeValue duration, Boolean *canceled)
  1443. ;
  1444.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1445.         Macro
  1446.         _MovieExportDoUserDialog
  1447.             move.l              #$00140086,-(sp)
  1448.             moveq               #0,D0
  1449.             dc.w                $A82A
  1450.         EndM
  1451.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1452.         IMPORT_CFM_FUNCTION MovieExportDoUserDialog
  1453.     ENDIF
  1454.  
  1455. ;
  1456. ; pascal ComponentResult MovieExportGetCreatorType(MovieExportComponent ci, OSType *creator)
  1457. ;
  1458.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1459.         Macro
  1460.         _MovieExportGetCreatorType
  1461.             move.l              #$00040087,-(sp)
  1462.             moveq               #0,D0
  1463.             dc.w                $A82A
  1464.         EndM
  1465.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1466.         IMPORT_CFM_FUNCTION MovieExportGetCreatorType
  1467.     ENDIF
  1468.  
  1469. ;
  1470. ; pascal ComponentResult MovieExportToDataRef(MovieExportComponent ci, Handle dataRef, OSType dataRefType, Movie theMovie, Track onlyThisTrack, TimeValue startTime, TimeValue duration)
  1471. ;
  1472.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1473.         Macro
  1474.         _MovieExportToDataRef
  1475.             move.l              #$00180088,-(sp)
  1476.             moveq               #0,D0
  1477.             dc.w                $A82A
  1478.         EndM
  1479.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1480.         IMPORT_CFM_FUNCTION MovieExportToDataRef
  1481.     ENDIF
  1482.  
  1483. ;
  1484. ; pascal ComponentResult MovieExportFromProceduresToDataRef(MovieExportComponent ci, Handle dataRef, OSType dataRefType)
  1485. ;
  1486.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1487.         Macro
  1488.         _MovieExportFromProceduresToDataRef
  1489.             move.l              #$00080089,-(sp)
  1490.             moveq               #0,D0
  1491.             dc.w                $A82A
  1492.         EndM
  1493.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1494.         IMPORT_CFM_FUNCTION MovieExportFromProceduresToDataRef
  1495.     ENDIF
  1496.  
  1497. ;
  1498. ; pascal ComponentResult MovieExportAddDataSource(MovieExportComponent ci, OSType trackType, TimeScale scale, long *trackID, MovieExportGetPropertyUPP getPropertyProc, MovieExportGetDataUPP getDataProc, void *refCon)
  1499. ;
  1500.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1501.         Macro
  1502.         _MovieExportAddDataSource
  1503.             move.l              #$0018008A,-(sp)
  1504.             moveq               #0,D0
  1505.             dc.w                $A82A
  1506.         EndM
  1507.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1508.         IMPORT_CFM_FUNCTION MovieExportAddDataSource
  1509.     ENDIF
  1510.  
  1511. ;
  1512. ; pascal ComponentResult MovieExportValidate(MovieExportComponent ci, Movie theMovie, Track onlyThisTrack, Boolean *valid)
  1513. ;
  1514.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1515.         Macro
  1516.         _MovieExportValidate
  1517.             move.l              #$000C008B,-(sp)
  1518.             moveq               #0,D0
  1519.             dc.w                $A82A
  1520.         EndM
  1521.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1522.         IMPORT_CFM_FUNCTION MovieExportValidate
  1523.     ENDIF
  1524.  
  1525. ;
  1526. ; pascal ComponentResult MovieExportGetSettingsAsAtomContainer(MovieExportComponent ci, QTAtomContainer *settings)
  1527. ;
  1528.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1529.         Macro
  1530.         _MovieExportGetSettingsAsAtomContainer
  1531.             move.l              #$0004008C,-(sp)
  1532.             moveq               #0,D0
  1533.             dc.w                $A82A
  1534.         EndM
  1535.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1536.         IMPORT_CFM_FUNCTION MovieExportGetSettingsAsAtomContainer
  1537.     ENDIF
  1538.  
  1539. ;
  1540. ; pascal ComponentResult MovieExportSetSettingsFromAtomContainer(MovieExportComponent ci, QTAtomContainer settings)
  1541. ;
  1542.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1543.         Macro
  1544.         _MovieExportSetSettingsFromAtomContainer
  1545.             move.l              #$0004008D,-(sp)
  1546.             moveq               #0,D0
  1547.             dc.w                $A82A
  1548.         EndM
  1549.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1550.         IMPORT_CFM_FUNCTION MovieExportSetSettingsFromAtomContainer
  1551.     ENDIF
  1552.  
  1553. ;
  1554. ; pascal ComponentResult MovieExportGetFileNameExtension(MovieExportComponent ci, OSType *extension)
  1555. ;
  1556.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1557.         Macro
  1558.         _MovieExportGetFileNameExtension
  1559.             move.l              #$0004008E,-(sp)
  1560.             moveq               #0,D0
  1561.             dc.w                $A82A
  1562.         EndM
  1563.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1564.         IMPORT_CFM_FUNCTION MovieExportGetFileNameExtension
  1565.     ENDIF
  1566.  
  1567. ;
  1568. ; pascal ComponentResult MovieExportGetShortFileTypeString(MovieExportComponent ci, Str255 typeString)
  1569. ;
  1570.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1571.         Macro
  1572.         _MovieExportGetShortFileTypeString
  1573.             move.l              #$0004008F,-(sp)
  1574.             moveq               #0,D0
  1575.             dc.w                $A82A
  1576.         EndM
  1577.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1578.         IMPORT_CFM_FUNCTION MovieExportGetShortFileTypeString
  1579.     ENDIF
  1580.  
  1581. ;
  1582. ; pascal ComponentResult MovieExportGetSourceMediaType(MovieExportComponent ci, OSType *mediaType)
  1583. ;
  1584.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1585.         Macro
  1586.         _MovieExportGetSourceMediaType
  1587.             move.l              #$00040090,-(sp)
  1588.             moveq               #0,D0
  1589.             dc.w                $A82A
  1590.         EndM
  1591.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1592.         IMPORT_CFM_FUNCTION MovieExportGetSourceMediaType
  1593.     ENDIF
  1594.  
  1595.      IF ¬ TARGET_CPU_PPC THEN 
  1596. ;  Text Export Display Info data structure
  1597. TextDisplayData            RECORD 0
  1598. displayFlags             ds.l    1                ; offset: $0 (0)
  1599. textJustification         ds.l    1                ; offset: $4 (4)
  1600. bgColor                     ds        RGBColor        ; offset: $8 (8)
  1601. textBox                     ds        Rect            ; offset: $E (14)
  1602. beginHilite                 ds.w    1                ; offset: $16 (22)
  1603. endHilite                 ds.w    1                ; offset: $18 (24)
  1604. hiliteColor                 ds        RGBColor        ; offset: $1A (26)
  1605. doHiliteColor             ds.b    1                ; offset: $20 (32)
  1606. filler                     ds.b    1                ; offset: $21 (33)
  1607. scrollDelayDur             ds.l    1                ; offset: $22 (34)
  1608. dropShadowOffset         ds        Point            ; offset: $26 (38)
  1609. dropShadowTransparency     ds.w    1                ; offset: $2A (42)
  1610. sizeof                     EQU *                    ; size:   $2C (44)
  1611.                         ENDR
  1612.     ENDIF
  1613. ; typedef ComponentInstance             TextExportComponent
  1614.  
  1615. ; typedef ComponentInstance             GraphicImageMovieImportComponent
  1616.  
  1617. ;
  1618. ; pascal ComponentResult TextExportGetDisplayData(TextExportComponent ci, TextDisplayData *textDisplay)
  1619. ;
  1620.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1621.         Macro
  1622.         _TextExportGetDisplayData
  1623.             move.l              #$00040100,-(sp)
  1624.             moveq               #0,D0
  1625.             dc.w                $A82A
  1626.         EndM
  1627.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1628.         IMPORT_CFM_FUNCTION TextExportGetDisplayData
  1629.     ENDIF
  1630.  
  1631. ;
  1632. ; pascal ComponentResult TextExportGetTimeFraction(TextExportComponent ci, long *movieTimeFraction)
  1633. ;
  1634.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1635.         Macro
  1636.         _TextExportGetTimeFraction
  1637.             move.l              #$00040101,-(sp)
  1638.             moveq               #0,D0
  1639.             dc.w                $A82A
  1640.         EndM
  1641.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1642.         IMPORT_CFM_FUNCTION TextExportGetTimeFraction
  1643.     ENDIF
  1644.  
  1645. ;
  1646. ; pascal ComponentResult TextExportSetTimeFraction(TextExportComponent ci, long movieTimeFraction)
  1647. ;
  1648.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1649.         Macro
  1650.         _TextExportSetTimeFraction
  1651.             move.l              #$00040102,-(sp)
  1652.             moveq               #0,D0
  1653.             dc.w                $A82A
  1654.         EndM
  1655.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1656.         IMPORT_CFM_FUNCTION TextExportSetTimeFraction
  1657.     ENDIF
  1658.  
  1659. ;
  1660. ; pascal ComponentResult TextExportGetSettings(TextExportComponent ci, long *setting)
  1661. ;
  1662.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1663.         Macro
  1664.         _TextExportGetSettings
  1665.             move.l              #$00040103,-(sp)
  1666.             moveq               #0,D0
  1667.             dc.w                $A82A
  1668.         EndM
  1669.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1670.         IMPORT_CFM_FUNCTION TextExportGetSettings
  1671.     ENDIF
  1672.  
  1673. ;
  1674. ; pascal ComponentResult TextExportSetSettings(TextExportComponent ci, long setting)
  1675. ;
  1676.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1677.         Macro
  1678.         _TextExportSetSettings
  1679.             move.l              #$00040104,-(sp)
  1680.             moveq               #0,D0
  1681.             dc.w                $A82A
  1682.         EndM
  1683.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1684.         IMPORT_CFM_FUNCTION TextExportSetSettings
  1685.     ENDIF
  1686.  
  1687.  
  1688. ;
  1689. ; pascal ComponentResult MIDIImportGetSettings(TextExportComponent ci, long *setting)
  1690. ;
  1691.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1692.         Macro
  1693.         _MIDIImportGetSettings
  1694.             move.l              #$00040100,-(sp)
  1695.             moveq               #0,D0
  1696.             dc.w                $A82A
  1697.         EndM
  1698.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1699.         IMPORT_CFM_FUNCTION MIDIImportGetSettings
  1700.     ENDIF
  1701.  
  1702. ;
  1703. ; pascal ComponentResult MIDIImportSetSettings(TextExportComponent ci, long setting)
  1704. ;
  1705.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1706.         Macro
  1707.         _MIDIImportSetSettings
  1708.             move.l              #$00040101,-(sp)
  1709.             moveq               #0,D0
  1710.             dc.w                $A82A
  1711.         EndM
  1712.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1713.         IMPORT_CFM_FUNCTION MIDIImportSetSettings
  1714.     ENDIF
  1715.  
  1716. ;
  1717. ; pascal ComponentResult MovieExportNewGetDataAndPropertiesProcs(MovieExportComponent ci, OSType trackType, TimeScale *scale, Movie theMovie, Track theTrack, TimeValue startTime, TimeValue duration, MovieExportGetPropertyUPP *getPropertyProc, MovieExportGetDataUPP *getDataProc, void **refCon)
  1718. ;
  1719.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1720.         Macro
  1721.         _MovieExportNewGetDataAndPropertiesProcs
  1722.             move.l              #$00240100,-(sp)
  1723.             moveq               #0,D0
  1724.             dc.w                $A82A
  1725.         EndM
  1726.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1727.         IMPORT_CFM_FUNCTION MovieExportNewGetDataAndPropertiesProcs
  1728.     ENDIF
  1729.  
  1730. ;
  1731. ; pascal ComponentResult MovieExportDisposeGetDataAndPropertiesProcs(MovieExportComponent ci, MovieExportGetPropertyUPP getPropertyProc, MovieExportGetDataUPP getDataProc, void *refCon)
  1732. ;
  1733.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1734.         Macro
  1735.         _MovieExportDisposeGetDataAndPropertiesProcs
  1736.             move.l              #$000C0101,-(sp)
  1737.             moveq               #0,D0
  1738.             dc.w                $A82A
  1739.         EndM
  1740.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1741.         IMPORT_CFM_FUNCTION MovieExportDisposeGetDataAndPropertiesProcs
  1742.     ENDIF
  1743.  
  1744.  
  1745. movieExportWidth                EQU        'wdth'                ; pointer to Fixed
  1746. movieExportHeight                EQU        'hegt'                ; pointer to Fixed
  1747. movieExportDuration                EQU        'dura'                ; pointer to TimeRecord
  1748. movieExportVideoFilter            EQU        'iflt'                ; pointer to QTAtomContainer
  1749. ;
  1750. ; pascal ComponentResult GraphicsImageImportSetSequenceEnabled(GraphicImageMovieImportComponent ci, Boolean enable)
  1751. ;
  1752.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1753.         Macro
  1754.         _GraphicsImageImportSetSequenceEnabled
  1755.             move.l              #$00020100,-(sp)
  1756.             moveq               #0,D0
  1757.             dc.w                $A82A
  1758.         EndM
  1759.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1760.         IMPORT_CFM_FUNCTION GraphicsImageImportSetSequenceEnabled
  1761.     ENDIF
  1762.  
  1763. ;
  1764. ; pascal ComponentResult GraphicsImageImportGetSequenceEnabled(GraphicImageMovieImportComponent ci, Boolean *enable)
  1765. ;
  1766.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1767.         Macro
  1768.         _GraphicsImageImportGetSequenceEnabled
  1769.             move.l              #$00040101,-(sp)
  1770.             moveq               #0,D0
  1771.             dc.w                $A82A
  1772.         EndM
  1773.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1774.         IMPORT_CFM_FUNCTION GraphicsImageImportGetSequenceEnabled
  1775.     ENDIF
  1776.  
  1777.  
  1778.  
  1779.  
  1780.  
  1781.  
  1782.  
  1783.  
  1784. ; ***************
  1785. ;
  1786. ;    File Preview Components
  1787. ;
  1788. ;**************
  1789.  
  1790. ; typedef ComponentInstance             pnotComponent
  1791.  
  1792.  
  1793. pnotComponentWantsEvents        EQU        1
  1794. pnotComponentNeedsNoCache        EQU        2
  1795.  
  1796. ShowFilePreviewComponentType    EQU        'pnot'
  1797. CreateFilePreviewComponentType    EQU        'pmak'
  1798. ;
  1799. ; pascal ComponentResult PreviewShowData(pnotComponent p, OSType dataType, Handle data, const Rect *inHere)
  1800. ;
  1801.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1802.         Macro
  1803.         _PreviewShowData
  1804.             move.l              #$000C0001,-(sp)
  1805.             moveq               #0,D0
  1806.             dc.w                $A82A
  1807.         EndM
  1808.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1809.         IMPORT_CFM_FUNCTION PreviewShowData
  1810.     ENDIF
  1811.  
  1812. ;
  1813. ; pascal ComponentResult PreviewMakePreview(pnotComponent p, OSType *previewType, Handle *previewResult, const FSSpec *sourceFile, ICMProgressProcRecordPtr progress)
  1814. ;
  1815.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1816.         Macro
  1817.         _PreviewMakePreview
  1818.             move.l              #$00100002,-(sp)
  1819.             moveq               #0,D0
  1820.             dc.w                $A82A
  1821.         EndM
  1822.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1823.         IMPORT_CFM_FUNCTION PreviewMakePreview
  1824.     ENDIF
  1825.  
  1826. ;
  1827. ; pascal ComponentResult PreviewMakePreviewReference(pnotComponent p, OSType *previewType, short *resID, const FSSpec *sourceFile)
  1828. ;
  1829.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1830.         Macro
  1831.         _PreviewMakePreviewReference
  1832.             move.l              #$000C0003,-(sp)
  1833.             moveq               #0,D0
  1834.             dc.w                $A82A
  1835.         EndM
  1836.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1837.         IMPORT_CFM_FUNCTION PreviewMakePreviewReference
  1838.     ENDIF
  1839.  
  1840. ;
  1841. ; pascal ComponentResult PreviewEvent(pnotComponent p, EventRecord *e, Boolean *handledEvent)
  1842. ;
  1843.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1844.         Macro
  1845.         _PreviewEvent
  1846.             move.l              #$00080004,-(sp)
  1847.             moveq               #0,D0
  1848.             dc.w                $A82A
  1849.         EndM
  1850.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1851.         IMPORT_CFM_FUNCTION PreviewEvent
  1852.     ENDIF
  1853.  
  1854.  
  1855.  
  1856. ; typedef ComponentInstance             DataCompressorComponent
  1857.  
  1858. ; typedef ComponentInstance             DataDecompressorComponent
  1859.  
  1860. ; typedef ComponentInstance             DataCodecComponent
  1861.  
  1862.  
  1863. DataCompressorComponentType        EQU        'dcom'
  1864. DataDecompressorComponentType    EQU        'ddec'
  1865. AppleDataCompressorSubType        EQU        'adec'
  1866. zlibDataCompressorSubType        EQU        'zlib'
  1867.  
  1868. ; * These are DataCodec procedures *
  1869. ;
  1870. ; pascal ComponentResult DataCodecDecompress(DataCodecComponent dc, void *srcData, UInt32 srcSize, void *dstData, UInt32 dstBufferSize)
  1871. ;
  1872.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1873.         Macro
  1874.         _DataCodecDecompress
  1875.             move.l              #$00100001,-(sp)
  1876.             moveq               #0,D0
  1877.             dc.w                $A82A
  1878.         EndM
  1879.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1880.         IMPORT_CFM_FUNCTION DataCodecDecompress
  1881.     ENDIF
  1882.  
  1883. ;
  1884. ; pascal ComponentResult DataCodecGetCompressBufferSize(DataCodecComponent dc, UInt32 srcSize, UInt32 *dstSize)
  1885. ;
  1886.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1887.         Macro
  1888.         _DataCodecGetCompressBufferSize
  1889.             move.l              #$00080002,-(sp)
  1890.             moveq               #0,D0
  1891.             dc.w                $A82A
  1892.         EndM
  1893.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1894.         IMPORT_CFM_FUNCTION DataCodecGetCompressBufferSize
  1895.     ENDIF
  1896.  
  1897. ;
  1898. ; pascal ComponentResult DataCodecCompress(DataCodecComponent dc, void *srcData, UInt32 srcSize, void *dstData, UInt32 dstBufferSize, UInt32 *actualDstSize, UInt32 *decompressSlop)
  1899. ;
  1900.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1901.         Macro
  1902.         _DataCodecCompress
  1903.             move.l              #$00180003,-(sp)
  1904.             moveq               #0,D0
  1905.             dc.w                $A82A
  1906.         EndM
  1907.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1908.         IMPORT_CFM_FUNCTION DataCodecCompress
  1909.     ENDIF
  1910.  
  1911. ;
  1912. ; pascal ComponentResult DataCodecBeginInterruptSafe(DataCodecComponent dc, unsigned long maxSrcSize)
  1913. ;
  1914.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1915.         Macro
  1916.         _DataCodecBeginInterruptSafe
  1917.             move.l              #$00040004,-(sp)
  1918.             moveq               #0,D0
  1919.             dc.w                $A82A
  1920.         EndM
  1921.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1922.         IMPORT_CFM_FUNCTION DataCodecBeginInterruptSafe
  1923.     ENDIF
  1924.  
  1925. ;
  1926. ; pascal ComponentResult DataCodecEndInterruptSafe(DataCodecComponent dc)
  1927. ;
  1928.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1929.         Macro
  1930.         _DataCodecEndInterruptSafe
  1931.             move.l              #$00000005,-(sp)
  1932.             moveq               #0,D0
  1933.             dc.w                $A82A
  1934.         EndM
  1935.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1936.         IMPORT_CFM_FUNCTION DataCodecEndInterruptSafe
  1937.     ENDIF
  1938.  
  1939. ;
  1940. ; pascal ComponentResult DataCodecDecompressPartial(DataCodecComponent dc, void **next_in, unsigned long *avail_in, unsigned long *total_in, void **next_out, unsigned long *avail_out, unsigned long *total_out, Boolean *didFinish)
  1941. ;
  1942.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1943.         Macro
  1944.         _DataCodecDecompressPartial
  1945.             move.l              #$001C0006,-(sp)
  1946.             moveq               #0,D0
  1947.             dc.w                $A82A
  1948.         EndM
  1949.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1950.         IMPORT_CFM_FUNCTION DataCodecDecompressPartial
  1951.     ENDIF
  1952.  
  1953. ;
  1954. ; pascal ComponentResult DataCodecCompressPartial(DataCodecComponent dc, void **next_in, unsigned long *avail_in, unsigned long *total_in, void **next_out, unsigned long *avail_out, unsigned long *total_out, Boolean tryToFinish, Boolean *didFinish)
  1955. ;
  1956.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1957.         Macro
  1958.         _DataCodecCompressPartial
  1959.             move.l              #$001E0007,-(sp)
  1960.             moveq               #0,D0
  1961.             dc.w                $A82A
  1962.         EndM
  1963.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1964.         IMPORT_CFM_FUNCTION DataCodecCompressPartial
  1965.     ENDIF
  1966.  
  1967.  
  1968.  
  1969.  
  1970.  
  1971.  
  1972. kDataHCanRead                    EQU        $00000001
  1973. kDataHSpecialRead                EQU        $00000002
  1974. kDataHSpecialReadFile            EQU        $00000004
  1975. kDataHCanWrite                    EQU        $00000008
  1976. kDataHSpecialWrite                EQU        $10
  1977. kDataHSpecialWriteFile            EQU        $20
  1978. kDataHCanStreamingWrite            EQU        $40
  1979. kDataHMustCheckDataRef            EQU        $80
  1980. DataHVolumeListRecord    RECORD 0
  1981. vRefNum                     ds.w    1                ; offset: $0 (0)
  1982. flags                     ds.l    1                ; offset: $2 (2)
  1983. sizeof                     EQU *                    ; size:   $6 (6)
  1984.                         ENDR
  1985. ; typedef struct DataHVolumeListRecord * DataHVolumeListPtr
  1986.  
  1987. ; typedef DataHVolumeListPtr *            DataHVolumeList
  1988.  
  1989.  
  1990. kDataHExtendedSchedule            EQU        'xtnd'
  1991. DataHScheduleRecord        RECORD 0
  1992. timeNeededBy             ds        TimeRecord        ; offset: $0 (0)
  1993. extendedID                 ds.l    1                ; offset: $10 (16)        ;  always is kDataHExtendedSchedule
  1994. extendedVers             ds.l    1                ; offset: $14 (20)        ;  always set to 0
  1995. priority                 ds.l    1                ; offset: $18 (24)        ;  100.0 or more means must have. lower numbers…
  1996. sizeof                     EQU *                    ; size:   $1C (28)
  1997.                         ENDR
  1998. ; typedef struct DataHScheduleRecord *    DataHSchedulePtr
  1999.  
  2000.  
  2001.  
  2002. ;
  2003. ; pascal ComponentResult DataHGetData(DataHandler dh, Handle h, long hOffset, long offset, long size)
  2004. ;
  2005.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2006.         Macro
  2007.         _DataHGetData
  2008.             move.l              #$00100002,-(sp)
  2009.             moveq               #0,D0
  2010.             dc.w                $A82A
  2011.         EndM
  2012.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2013.         IMPORT_CFM_FUNCTION DataHGetData
  2014.     ENDIF
  2015.  
  2016. ;
  2017. ; pascal ComponentResult DataHPutData(DataHandler dh, Handle h, long hOffset, long *offset, long size)
  2018. ;
  2019.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2020.         Macro
  2021.         _DataHPutData
  2022.             move.l              #$00100003,-(sp)
  2023.             moveq               #0,D0
  2024.             dc.w                $A82A
  2025.         EndM
  2026.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2027.         IMPORT_CFM_FUNCTION DataHPutData
  2028.     ENDIF
  2029.  
  2030. ;
  2031. ; pascal ComponentResult DataHFlushData(DataHandler dh)
  2032. ;
  2033.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2034.         Macro
  2035.         _DataHFlushData
  2036.             move.l              #$00000004,-(sp)
  2037.             moveq               #0,D0
  2038.             dc.w                $A82A
  2039.         EndM
  2040.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2041.         IMPORT_CFM_FUNCTION DataHFlushData
  2042.     ENDIF
  2043.  
  2044. ;
  2045. ; pascal ComponentResult DataHOpenForWrite(DataHandler dh)
  2046. ;
  2047.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2048.         Macro
  2049.         _DataHOpenForWrite
  2050.             move.l              #$00000005,-(sp)
  2051.             moveq               #0,D0
  2052.             dc.w                $A82A
  2053.         EndM
  2054.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2055.         IMPORT_CFM_FUNCTION DataHOpenForWrite
  2056.     ENDIF
  2057.  
  2058. ;
  2059. ; pascal ComponentResult DataHCloseForWrite(DataHandler dh)
  2060. ;
  2061.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2062.         Macro
  2063.         _DataHCloseForWrite
  2064.             move.l              #$00000006,-(sp)
  2065.             moveq               #0,D0
  2066.             dc.w                $A82A
  2067.         EndM
  2068.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2069.         IMPORT_CFM_FUNCTION DataHCloseForWrite
  2070.     ENDIF
  2071.  
  2072.  
  2073. ;
  2074. ; pascal ComponentResult DataHOpenForRead(DataHandler dh)
  2075. ;
  2076.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2077.         Macro
  2078.         _DataHOpenForRead
  2079.             move.l              #$00000008,-(sp)
  2080.             moveq               #0,D0
  2081.             dc.w                $A82A
  2082.         EndM
  2083.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2084.         IMPORT_CFM_FUNCTION DataHOpenForRead
  2085.     ENDIF
  2086.  
  2087. ;
  2088. ; pascal ComponentResult DataHCloseForRead(DataHandler dh)
  2089. ;
  2090.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2091.         Macro
  2092.         _DataHCloseForRead
  2093.             move.l              #$00000009,-(sp)
  2094.             moveq               #0,D0
  2095.             dc.w                $A82A
  2096.         EndM
  2097.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2098.         IMPORT_CFM_FUNCTION DataHCloseForRead
  2099.     ENDIF
  2100.  
  2101. ;
  2102. ; pascal ComponentResult DataHSetDataRef(DataHandler dh, Handle dataRef)
  2103. ;
  2104.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2105.         Macro
  2106.         _DataHSetDataRef
  2107.             move.l              #$0004000A,-(sp)
  2108.             moveq               #0,D0
  2109.             dc.w                $A82A
  2110.         EndM
  2111.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2112.         IMPORT_CFM_FUNCTION DataHSetDataRef
  2113.     ENDIF
  2114.  
  2115. ;
  2116. ; pascal ComponentResult DataHGetDataRef(DataHandler dh, Handle *dataRef)
  2117. ;
  2118.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2119.         Macro
  2120.         _DataHGetDataRef
  2121.             move.l              #$0004000B,-(sp)
  2122.             moveq               #0,D0
  2123.             dc.w                $A82A
  2124.         EndM
  2125.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2126.         IMPORT_CFM_FUNCTION DataHGetDataRef
  2127.     ENDIF
  2128.  
  2129. ;
  2130. ; pascal ComponentResult DataHCompareDataRef(DataHandler dh, Handle dataRef, Boolean *equal)
  2131. ;
  2132.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2133.         Macro
  2134.         _DataHCompareDataRef
  2135.             move.l              #$0008000C,-(sp)
  2136.             moveq               #0,D0
  2137.             dc.w                $A82A
  2138.         EndM
  2139.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2140.         IMPORT_CFM_FUNCTION DataHCompareDataRef
  2141.     ENDIF
  2142.  
  2143. ;
  2144. ; pascal ComponentResult DataHTask(DataHandler dh)
  2145. ;
  2146.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2147.         Macro
  2148.         _DataHTask
  2149.             move.l              #$0000000D,-(sp)
  2150.             moveq               #0,D0
  2151.             dc.w                $A82A
  2152.         EndM
  2153.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2154.         IMPORT_CFM_FUNCTION DataHTask
  2155.     ENDIF
  2156.  
  2157. ;
  2158. ; pascal ComponentResult DataHScheduleData(DataHandler dh, Ptr PlaceToPutDataPtr, long FileOffset, long DataSize, long RefCon, DataHSchedulePtr scheduleRec, DataHCompletionUPP CompletionRtn)
  2159. ;
  2160.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2161.         Macro
  2162.         _DataHScheduleData
  2163.             move.l              #$0018000E,-(sp)
  2164.             moveq               #0,D0
  2165.             dc.w                $A82A
  2166.         EndM
  2167.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2168.         IMPORT_CFM_FUNCTION DataHScheduleData
  2169.     ENDIF
  2170.  
  2171. ;
  2172. ; pascal ComponentResult DataHFinishData(DataHandler dh, Ptr PlaceToPutDataPtr, Boolean Cancel)
  2173. ;
  2174.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2175.         Macro
  2176.         _DataHFinishData
  2177.             move.l              #$0006000F,-(sp)
  2178.             moveq               #0,D0
  2179.             dc.w                $A82A
  2180.         EndM
  2181.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2182.         IMPORT_CFM_FUNCTION DataHFinishData
  2183.     ENDIF
  2184.  
  2185. ;
  2186. ; pascal ComponentResult DataHFlushCache(DataHandler dh)
  2187. ;
  2188.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2189.         Macro
  2190.         _DataHFlushCache
  2191.             move.l              #$00000010,-(sp)
  2192.             moveq               #0,D0
  2193.             dc.w                $A82A
  2194.         EndM
  2195.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2196.         IMPORT_CFM_FUNCTION DataHFlushCache
  2197.     ENDIF
  2198.  
  2199. ;
  2200. ; pascal ComponentResult DataHResolveDataRef(DataHandler dh, Handle theDataRef, Boolean *wasChanged, Boolean userInterfaceAllowed)
  2201. ;
  2202.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2203.         Macro
  2204.         _DataHResolveDataRef
  2205.             move.l              #$000A0011,-(sp)
  2206.             moveq               #0,D0
  2207.             dc.w                $A82A
  2208.         EndM
  2209.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2210.         IMPORT_CFM_FUNCTION DataHResolveDataRef
  2211.     ENDIF
  2212.  
  2213. ;
  2214. ; pascal ComponentResult DataHGetFileSize(DataHandler dh, long *fileSize)
  2215. ;
  2216.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2217.         Macro
  2218.         _DataHGetFileSize
  2219.             move.l              #$00040012,-(sp)
  2220.             moveq               #0,D0
  2221.             dc.w                $A82A
  2222.         EndM
  2223.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2224.         IMPORT_CFM_FUNCTION DataHGetFileSize
  2225.     ENDIF
  2226.  
  2227. ;
  2228. ; pascal ComponentResult DataHCanUseDataRef(DataHandler dh, Handle dataRef, long *useFlags)
  2229. ;
  2230.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2231.         Macro
  2232.         _DataHCanUseDataRef
  2233.             move.l              #$00080013,-(sp)
  2234.             moveq               #0,D0
  2235.             dc.w                $A82A
  2236.         EndM
  2237.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2238.         IMPORT_CFM_FUNCTION DataHCanUseDataRef
  2239.     ENDIF
  2240.  
  2241. ;
  2242. ; pascal ComponentResult DataHGetVolumeList(DataHandler dh, DataHVolumeList *volumeList)
  2243. ;
  2244.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2245.         Macro
  2246.         _DataHGetVolumeList
  2247.             move.l              #$00040014,-(sp)
  2248.             moveq               #0,D0
  2249.             dc.w                $A82A
  2250.         EndM
  2251.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2252.         IMPORT_CFM_FUNCTION DataHGetVolumeList
  2253.     ENDIF
  2254.  
  2255. ;
  2256. ; pascal ComponentResult DataHWrite(DataHandler dh, Ptr data, long offset, long size, DataHCompletionUPP completion, long refCon)
  2257. ;
  2258.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2259.         Macro
  2260.         _DataHWrite
  2261.             move.l              #$00140015,-(sp)
  2262.             moveq               #0,D0
  2263.             dc.w                $A82A
  2264.         EndM
  2265.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2266.         IMPORT_CFM_FUNCTION DataHWrite
  2267.     ENDIF
  2268.  
  2269. ;
  2270. ; pascal ComponentResult DataHPreextend(DataHandler dh, unsigned long maxToAdd, unsigned long *spaceAdded)
  2271. ;
  2272.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2273.         Macro
  2274.         _DataHPreextend
  2275.             move.l              #$00080016,-(sp)
  2276.             moveq               #0,D0
  2277.             dc.w                $A82A
  2278.         EndM
  2279.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2280.         IMPORT_CFM_FUNCTION DataHPreextend
  2281.     ENDIF
  2282.  
  2283. ;
  2284. ; pascal ComponentResult DataHSetFileSize(DataHandler dh, long fileSize)
  2285. ;
  2286.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2287.         Macro
  2288.         _DataHSetFileSize
  2289.             move.l              #$00040017,-(sp)
  2290.             moveq               #0,D0
  2291.             dc.w                $A82A
  2292.         EndM
  2293.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2294.         IMPORT_CFM_FUNCTION DataHSetFileSize
  2295.     ENDIF
  2296.  
  2297. ;
  2298. ; pascal ComponentResult DataHGetFreeSpace(DataHandler dh, unsigned long *freeSize)
  2299. ;
  2300.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2301.         Macro
  2302.         _DataHGetFreeSpace
  2303.             move.l              #$00040018,-(sp)
  2304.             moveq               #0,D0
  2305.             dc.w                $A82A
  2306.         EndM
  2307.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2308.         IMPORT_CFM_FUNCTION DataHGetFreeSpace
  2309.     ENDIF
  2310.  
  2311. ;
  2312. ; pascal ComponentResult DataHCreateFile(DataHandler dh, OSType creator, Boolean deleteExisting)
  2313. ;
  2314.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2315.         Macro
  2316.         _DataHCreateFile
  2317.             move.l              #$00060019,-(sp)
  2318.             moveq               #0,D0
  2319.             dc.w                $A82A
  2320.         EndM
  2321.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2322.         IMPORT_CFM_FUNCTION DataHCreateFile
  2323.     ENDIF
  2324.  
  2325. ;
  2326. ; pascal ComponentResult DataHGetPreferredBlockSize(DataHandler dh, long *blockSize)
  2327. ;
  2328.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2329.         Macro
  2330.         _DataHGetPreferredBlockSize
  2331.             move.l              #$0004001A,-(sp)
  2332.             moveq               #0,D0
  2333.             dc.w                $A82A
  2334.         EndM
  2335.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2336.         IMPORT_CFM_FUNCTION DataHGetPreferredBlockSize
  2337.     ENDIF
  2338.  
  2339. ;
  2340. ; pascal ComponentResult DataHGetDeviceIndex(DataHandler dh, long *deviceIndex)
  2341. ;
  2342.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2343.         Macro
  2344.         _DataHGetDeviceIndex
  2345.             move.l              #$0004001B,-(sp)
  2346.             moveq               #0,D0
  2347.             dc.w                $A82A
  2348.         EndM
  2349.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2350.         IMPORT_CFM_FUNCTION DataHGetDeviceIndex
  2351.     ENDIF
  2352.  
  2353. ;
  2354. ; pascal ComponentResult DataHIsStreamingDataHandler(DataHandler dh, Boolean *yes)
  2355. ;
  2356.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2357.         Macro
  2358.         _DataHIsStreamingDataHandler
  2359.             move.l              #$0004001C,-(sp)
  2360.             moveq               #0,D0
  2361.             dc.w                $A82A
  2362.         EndM
  2363.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2364.         IMPORT_CFM_FUNCTION DataHIsStreamingDataHandler
  2365.     ENDIF
  2366.  
  2367. ;
  2368. ; pascal ComponentResult DataHGetDataInBuffer(DataHandler dh, long startOffset, long *size)
  2369. ;
  2370.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2371.         Macro
  2372.         _DataHGetDataInBuffer
  2373.             move.l              #$0008001D,-(sp)
  2374.             moveq               #0,D0
  2375.             dc.w                $A82A
  2376.         EndM
  2377.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2378.         IMPORT_CFM_FUNCTION DataHGetDataInBuffer
  2379.     ENDIF
  2380.  
  2381. ;
  2382. ; pascal ComponentResult DataHGetScheduleAheadTime(DataHandler dh, long *millisecs)
  2383. ;
  2384.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2385.         Macro
  2386.         _DataHGetScheduleAheadTime
  2387.             move.l              #$0004001E,-(sp)
  2388.             moveq               #0,D0
  2389.             dc.w                $A82A
  2390.         EndM
  2391.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2392.         IMPORT_CFM_FUNCTION DataHGetScheduleAheadTime
  2393.     ENDIF
  2394.  
  2395. ;
  2396. ; pascal ComponentResult DataHSetCacheSizeLimit(DataHandler dh, Size cacheSizeLimit)
  2397. ;
  2398.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2399.         Macro
  2400.         _DataHSetCacheSizeLimit
  2401.             move.l              #$0004001F,-(sp)
  2402.             moveq               #0,D0
  2403.             dc.w                $A82A
  2404.         EndM
  2405.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2406.         IMPORT_CFM_FUNCTION DataHSetCacheSizeLimit
  2407.     ENDIF
  2408.  
  2409. ;
  2410. ; pascal ComponentResult DataHGetCacheSizeLimit(DataHandler dh, Size *cacheSizeLimit)
  2411. ;
  2412.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2413.         Macro
  2414.         _DataHGetCacheSizeLimit
  2415.             move.l              #$00040020,-(sp)
  2416.             moveq               #0,D0
  2417.             dc.w                $A82A
  2418.         EndM
  2419.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2420.         IMPORT_CFM_FUNCTION DataHGetCacheSizeLimit
  2421.     ENDIF
  2422.  
  2423. ;
  2424. ; pascal ComponentResult DataHGetMovie(DataHandler dh, Movie *theMovie, short *id)
  2425. ;
  2426.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2427.         Macro
  2428.         _DataHGetMovie
  2429.             move.l              #$00080021,-(sp)
  2430.             moveq               #0,D0
  2431.             dc.w                $A82A
  2432.         EndM
  2433.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2434.         IMPORT_CFM_FUNCTION DataHGetMovie
  2435.     ENDIF
  2436.  
  2437. ;
  2438. ; pascal ComponentResult DataHAddMovie(DataHandler dh, Movie theMovie, short *id)
  2439. ;
  2440.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2441.         Macro
  2442.         _DataHAddMovie
  2443.             move.l              #$00080022,-(sp)
  2444.             moveq               #0,D0
  2445.             dc.w                $A82A
  2446.         EndM
  2447.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2448.         IMPORT_CFM_FUNCTION DataHAddMovie
  2449.     ENDIF
  2450.  
  2451. ;
  2452. ; pascal ComponentResult DataHUpdateMovie(DataHandler dh, Movie theMovie, short id)
  2453. ;
  2454.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2455.         Macro
  2456.         _DataHUpdateMovie
  2457.             move.l              #$00060023,-(sp)
  2458.             moveq               #0,D0
  2459.             dc.w                $A82A
  2460.         EndM
  2461.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2462.         IMPORT_CFM_FUNCTION DataHUpdateMovie
  2463.     ENDIF
  2464.  
  2465. ;
  2466. ; pascal ComponentResult DataHDoesBuffer(DataHandler dh, Boolean *buffersReads, Boolean *buffersWrites)
  2467. ;
  2468.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2469.         Macro
  2470.         _DataHDoesBuffer
  2471.             move.l              #$00080024,-(sp)
  2472.             moveq               #0,D0
  2473.             dc.w                $A82A
  2474.         EndM
  2475.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2476.         IMPORT_CFM_FUNCTION DataHDoesBuffer
  2477.     ENDIF
  2478.  
  2479. ;
  2480. ; pascal ComponentResult DataHGetFileName(DataHandler dh, Str255 str)
  2481. ;
  2482.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2483.         Macro
  2484.         _DataHGetFileName
  2485.             move.l              #$00040025,-(sp)
  2486.             moveq               #0,D0
  2487.             dc.w                $A82A
  2488.         EndM
  2489.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2490.         IMPORT_CFM_FUNCTION DataHGetFileName
  2491.     ENDIF
  2492.  
  2493. ;
  2494. ; pascal ComponentResult DataHGetAvailableFileSize(DataHandler dh, long *fileSize)
  2495. ;
  2496.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2497.         Macro
  2498.         _DataHGetAvailableFileSize
  2499.             move.l              #$00040026,-(sp)
  2500.             moveq               #0,D0
  2501.             dc.w                $A82A
  2502.         EndM
  2503.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2504.         IMPORT_CFM_FUNCTION DataHGetAvailableFileSize
  2505.     ENDIF
  2506.  
  2507. ;
  2508. ; pascal ComponentResult DataHGetMacOSFileType(DataHandler dh, OSType *fileType)
  2509. ;
  2510.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2511.         Macro
  2512.         _DataHGetMacOSFileType
  2513.             move.l              #$00040027,-(sp)
  2514.             moveq               #0,D0
  2515.             dc.w                $A82A
  2516.         EndM
  2517.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2518.         IMPORT_CFM_FUNCTION DataHGetMacOSFileType
  2519.     ENDIF
  2520.  
  2521. ;
  2522. ; pascal ComponentResult DataHGetMIMEType(DataHandler dh, Str255 mimeType)
  2523. ;
  2524.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2525.         Macro
  2526.         _DataHGetMIMEType
  2527.             move.l              #$00040028,-(sp)
  2528.             moveq               #0,D0
  2529.             dc.w                $A82A
  2530.         EndM
  2531.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2532.         IMPORT_CFM_FUNCTION DataHGetMIMEType
  2533.     ENDIF
  2534.  
  2535. ;
  2536. ; pascal ComponentResult DataHSetDataRefWithAnchor(DataHandler dh, Handle anchorDataRef, OSType dataRefType, Handle dataRef)
  2537. ;
  2538.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2539.         Macro
  2540.         _DataHSetDataRefWithAnchor
  2541.             move.l              #$000C0029,-(sp)
  2542.             moveq               #0,D0
  2543.             dc.w                $A82A
  2544.         EndM
  2545.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2546.         IMPORT_CFM_FUNCTION DataHSetDataRefWithAnchor
  2547.     ENDIF
  2548.  
  2549. ;
  2550. ; pascal ComponentResult DataHGetDataRefWithAnchor(DataHandler dh, Handle anchorDataRef, OSType dataRefType, Handle *dataRef)
  2551. ;
  2552.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2553.         Macro
  2554.         _DataHGetDataRefWithAnchor
  2555.             move.l              #$000C002A,-(sp)
  2556.             moveq               #0,D0
  2557.             dc.w                $A82A
  2558.         EndM
  2559.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2560.         IMPORT_CFM_FUNCTION DataHGetDataRefWithAnchor
  2561.     ENDIF
  2562.  
  2563. ;
  2564. ; pascal ComponentResult DataHSetMacOSFileType(DataHandler dh, OSType fileType)
  2565. ;
  2566.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2567.         Macro
  2568.         _DataHSetMacOSFileType
  2569.             move.l              #$0004002B,-(sp)
  2570.             moveq               #0,D0
  2571.             dc.w                $A82A
  2572.         EndM
  2573.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2574.         IMPORT_CFM_FUNCTION DataHSetMacOSFileType
  2575.     ENDIF
  2576.  
  2577.  
  2578. ;
  2579. ; pascal ComponentResult DataHPlaybackHints(DataHandler dh, long flags, unsigned long minFileOffset, unsigned long maxFileOffset, long bytesPerSecond)
  2580. ;
  2581.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2582.         Macro
  2583.         _DataHPlaybackHints
  2584.             move.l              #$00100103,-(sp)
  2585.             moveq               #0,D0
  2586.             dc.w                $A82A
  2587.         EndM
  2588.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2589.         IMPORT_CFM_FUNCTION DataHPlaybackHints
  2590.     ENDIF
  2591.  
  2592.  
  2593.  
  2594.  
  2595. ;  Standard type for video digitizers 
  2596.  
  2597. videoDigitizerComponentType        EQU        'vdig'
  2598. vdigInterfaceRev                EQU        2
  2599. ;  Input Format Standards 
  2600.  
  2601. ntscIn                            EQU        0                    ; current input format 
  2602. currentIn                        EQU        0                    ; ntsc input format 
  2603. palIn                            EQU        1                    ; pal input format 
  2604. secamIn                            EQU        2                    ; secam input format 
  2605. ntscReallyIn                    EQU        3                    ; ntsc input format 
  2606. ;  Input Formats 
  2607.  
  2608. compositeIn                        EQU        0                    ; input is composite format 
  2609. sVideoIn                        EQU        1                    ; input is sVideo format 
  2610. rgbComponentIn                    EQU        2                    ; input is rgb component format 
  2611. rgbComponentSyncIn                EQU        3                    ; input is rgb component format (sync on green?)
  2612. yuvComponentIn                    EQU        4                    ; input is yuv component format 
  2613. yuvComponentSyncIn                EQU        5                    ; input is yuv component format (sync on green?) 
  2614. tvTunerIn                        EQU        6
  2615. sdiIn                            EQU        7
  2616.  
  2617. ;  Video Digitizer PlayThru States 
  2618.  
  2619. vdPlayThruOff                    EQU        0
  2620. vdPlayThruOn                    EQU        1
  2621. ;  Input Color Space Modes 
  2622.  
  2623. vdDigitizerBW                    EQU        0                    ; black and white 
  2624. vdDigitizerRGB                    EQU        1                    ; rgb color 
  2625. ;  Phase Lock Loop Modes 
  2626.  
  2627. vdBroadcastMode                    EQU        0                    ; Broadcast / Laser Disk video mode 
  2628. vdVTRMode                        EQU        1                    ; VCR / Magnetic media mode 
  2629. ;  Field Select Options 
  2630.  
  2631. vdUseAnyField                    EQU        0                    ; Digitizers choice on field use 
  2632. vdUseOddField                    EQU        1                    ; Use odd field for half size vert and smaller 
  2633. vdUseEvenField                    EQU        2                    ; Use even field for half size vert and smaller 
  2634. ;  vdig types 
  2635.  
  2636. vdTypeBasic                        EQU        0                    ; basic, no clipping 
  2637. vdTypeAlpha                        EQU        1                    ; supports clipping with alpha channel 
  2638. vdTypeMask                        EQU        2                    ; supports clipping with mask plane 
  2639. vdTypeKey                        EQU        3                    ; supports clipping with key color(s) 
  2640.  
  2641.  
  2642. ;  Digitizer Input Capability/Current Flags    
  2643.  
  2644. digiInDoesNTSC                    EQU        $00000001            ; digitizer supports NTSC input format 
  2645. digiInDoesPAL                    EQU        $00000002            ; digitizer supports PAL input format 
  2646. digiInDoesSECAM                    EQU        $00000004            ; digitizer supports SECAM input format 
  2647. digiInDoesGenLock                EQU        $00000080            ; digitizer does genlock 
  2648. digiInDoesComposite                EQU        $00000100            ; digitizer supports composite input type 
  2649. digiInDoesSVideo                EQU        $00000200            ; digitizer supports S-Video input type 
  2650. digiInDoesComponent                EQU        $00000400            ; digitizer supports component = rgb, input type 
  2651. digiInVTR_Broadcast                EQU        $00000800            ; digitizer can differentiate between the two 
  2652. digiInDoesColor                    EQU        $00001000            ; digitizer supports color 
  2653. digiInDoesBW                    EQU        $00002000            ; digitizer supports black & white 
  2654.                                                             ; Digitizer Input Current Flags = these are valid only during active operating conditions,    
  2655. digiInSignalLock                EQU        $80000000            ; digitizer detects input signal is locked, this bit = horiz lock || vertical lock 
  2656.  
  2657. ;  Digitizer Output Capability/Current Flags 
  2658.  
  2659. digiOutDoes1                    EQU        $00000001            ; digitizer supports 1 bit pixels 
  2660. digiOutDoes2                    EQU        $00000002            ; digitizer supports 2 bit pixels 
  2661. digiOutDoes4                    EQU        $00000004            ; digitizer supports 4 bit pixels 
  2662. digiOutDoes8                    EQU        $00000008            ; digitizer supports 8 bit pixels 
  2663. digiOutDoes16                    EQU        $00000010            ; digitizer supports 16 bit pixels 
  2664. digiOutDoes32                    EQU        $00000020            ; digitizer supports 32 bit pixels 
  2665. digiOutDoesDither                EQU        $00000040            ; digitizer dithers in indexed modes 
  2666. digiOutDoesStretch                EQU        $00000080            ; digitizer can arbitrarily stretch 
  2667. digiOutDoesShrink                EQU        $00000100            ; digitizer can arbitrarily shrink 
  2668. digiOutDoesMask                    EQU        $00000200            ; digitizer can mask to clipping regions 
  2669. digiOutDoesDouble                EQU        $00000800            ; digitizer can stretch to exactly double size 
  2670. digiOutDoesQuad                    EQU        $00001000            ; digitizer can stretch exactly quadruple size 
  2671. digiOutDoesQuarter                EQU        $00002000            ; digitizer can shrink to exactly quarter size 
  2672. digiOutDoesSixteenth            EQU        $00004000            ; digitizer can shrink to exactly sixteenth size 
  2673. digiOutDoesRotate                EQU        $00008000            ; digitizer supports rotate transformations 
  2674. digiOutDoesHorizFlip            EQU        $00010000            ; digitizer supports horizontal flips Sx < 0 
  2675. digiOutDoesVertFlip                EQU        $00020000            ; digitizer supports vertical flips Sy < 0 
  2676. digiOutDoesSkew                    EQU        $00040000            ; digitizer supports skew = shear,twist, 
  2677. digiOutDoesBlend                EQU        $00080000
  2678. digiOutDoesWarp                    EQU        $00100000
  2679. digiOutDoesHW_DMA                EQU        $00200000            ; digitizer not constrained to local device 
  2680. digiOutDoesHWPlayThru            EQU        $00400000            ; digitizer doesn't need time to play thru 
  2681. digiOutDoesILUT                    EQU        $00800000            ; digitizer does inverse LUT for index modes 
  2682. digiOutDoesKeyColor                EQU        $01000000            ; digitizer does key color functions too 
  2683. digiOutDoesAsyncGrabs            EQU        $02000000            ; digitizer supports async grabs 
  2684. digiOutDoesUnreadableScreenBits    EQU        $04000000            ; playthru doesn't generate readable bits on screen
  2685. digiOutDoesCompress                EQU        $08000000            ; supports alternate output data types 
  2686. digiOutDoesCompressOnly            EQU        $10000000            ; can't provide raw frames anywhere 
  2687. digiOutDoesPlayThruDuringCompress EQU    $20000000            ; digi can do playthru while providing compressed data 
  2688. digiOutDoesCompressPartiallyVisible EQU    $40000000            ; digi doesn't need all bits visible on screen to do hardware compress 
  2689. ;  Types 
  2690. ; typedef ComponentInstance             VideoDigitizerComponent
  2691.  
  2692. ; typedef ComponentResult                 VideoDigitizerError
  2693.  
  2694. DigitizerInfo            RECORD 0
  2695. vdigType                 ds.w    1                ; offset: $0 (0)
  2696. inputCapabilityFlags     ds.l    1                ; offset: $2 (2)
  2697. outputCapabilityFlags     ds.l    1                ; offset: $6 (6)
  2698. inputCurrentFlags         ds.l    1                ; offset: $A (10)
  2699. outputCurrentFlags         ds.l    1                ; offset: $E (14)
  2700. slot                     ds.w    1                ; offset: $12 (18)        ;  temporary for connection purposes 
  2701. gdh                         ds.l    1                ; offset: $14 (20)        ;  temporary for digitizers that have preferred screen 
  2702. maskgdh                     ds.l    1                ; offset: $18 (24)        ;  temporary for digitizers that have mask planes 
  2703. minDestHeight             ds.w    1                ; offset: $1C (28)        ;  Smallest resizable height 
  2704. minDestWidth             ds.w    1                ; offset: $1E (30)        ;  Smallest resizable width 
  2705. maxDestHeight             ds.w    1                ; offset: $20 (32)        ;  Largest resizable height 
  2706. maxDestWidth             ds.w    1                ; offset: $22 (34)        ;  Largest resizable height 
  2707. blendLevels                 ds.w    1                ; offset: $24 (36)        ;  Number of blend levels supported (2 if 1 bit mask) 
  2708. reserved                 ds.l    1                ; offset: $26 (38)        ;  reserved 
  2709. sizeof                     EQU *                    ; size:   $2A (42)
  2710.                         ENDR
  2711. VdigType                RECORD 0
  2712. digType                     ds.l    1                ; offset: $0 (0)
  2713. reserved                 ds.l    1                ; offset: $4 (4)
  2714. sizeof                     EQU *                    ; size:   $8 (8)
  2715.                         ENDR
  2716. VdigTypeList            RECORD 0
  2717. count                     ds.w    1                ; offset: $0 (0)
  2718. list                     ds        VdigType        ; offset: $2 (2) <-- really an array of length one
  2719. sizeof                     EQU *                    ; size:   $A (10)
  2720.                         ENDR
  2721. VdigBufferRec            RECORD 0
  2722. dest                     ds.l    1                ; offset: $0 (0)
  2723. location                 ds        Point            ; offset: $4 (4)
  2724. reserved                 ds.l    1                ; offset: $8 (8)
  2725. sizeof                     EQU *                    ; size:   $C (12)
  2726.                         ENDR
  2727. VdigBufferRecList        RECORD 0
  2728. count                     ds.w    1                ; offset: $0 (0)
  2729. matrix                     ds.l    1                ; offset: $2 (2)
  2730. mask                     ds.l    1                ; offset: $6 (6)
  2731. list                     ds        VdigBufferRec    ; offset: $A (10) <-- really an array of length one
  2732. sizeof                     EQU *                    ; size:   $16 (22)
  2733.                         ENDR
  2734. ; typedef struct VdigBufferRecList *    VdigBufferRecListPtr
  2735.  
  2736. ; typedef VdigBufferRecListPtr *        VdigBufferRecListHandle
  2737.  
  2738. VDCompressionList        RECORD 0
  2739. codec                     ds.l    1                ; offset: $0 (0)
  2740. cType                     ds.l    1                ; offset: $4 (4)
  2741. typeName                 ds        Str63            ; offset: $8 (8)
  2742. name                     ds        Str63            ; offset: $48 (72)
  2743. formatFlags                 ds.l    1                ; offset: $88 (136)
  2744. compressFlags             ds.l    1                ; offset: $8C (140)
  2745. reserved                 ds.l    1                ; offset: $90 (144)
  2746. sizeof                     EQU *                    ; size:   $94 (148)
  2747.                         ENDR
  2748. ; typedef struct VDCompressionList *    VDCompressionListPtr
  2749.  
  2750. ; typedef VDCompressionListPtr *        VDCompressionListHandle
  2751.  
  2752.  
  2753. dmaDepth1                        EQU        1
  2754. dmaDepth2                        EQU        2
  2755. dmaDepth4                        EQU        4
  2756. dmaDepth8                        EQU        8
  2757. dmaDepth16                        EQU        16
  2758. dmaDepth32                        EQU        32
  2759. dmaDepth2Gray                    EQU        64
  2760. dmaDepth4Gray                    EQU        128
  2761. dmaDepth8Gray                    EQU        256
  2762.  
  2763. kVDIGControlledFrameRate        EQU        -1
  2764.  
  2765. ;
  2766. ; pascal VideoDigitizerError VDGetMaxSrcRect(VideoDigitizerComponent ci, short inputStd, Rect *maxSrcRect)
  2767. ;
  2768.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2769.         Macro
  2770.         _VDGetMaxSrcRect
  2771.             move.l              #$00060001,-(sp)
  2772.             moveq               #0,D0
  2773.             dc.w                $A82A
  2774.         EndM
  2775.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2776.         IMPORT_CFM_FUNCTION VDGetMaxSrcRect
  2777.     ENDIF
  2778.  
  2779. ;
  2780. ; pascal VideoDigitizerError VDGetActiveSrcRect(VideoDigitizerComponent ci, short inputStd, Rect *activeSrcRect)
  2781. ;
  2782.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2783.         Macro
  2784.         _VDGetActiveSrcRect
  2785.             move.l              #$00060002,-(sp)
  2786.             moveq               #0,D0
  2787.             dc.w                $A82A
  2788.         EndM
  2789.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2790.         IMPORT_CFM_FUNCTION VDGetActiveSrcRect
  2791.     ENDIF
  2792.  
  2793. ;
  2794. ; pascal VideoDigitizerError VDSetDigitizerRect(VideoDigitizerComponent ci, Rect *digitizerRect)
  2795. ;
  2796.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2797.         Macro
  2798.         _VDSetDigitizerRect
  2799.             move.l              #$00040003,-(sp)
  2800.             moveq               #0,D0
  2801.             dc.w                $A82A
  2802.         EndM
  2803.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2804.         IMPORT_CFM_FUNCTION VDSetDigitizerRect
  2805.     ENDIF
  2806.  
  2807. ;
  2808. ; pascal VideoDigitizerError VDGetDigitizerRect(VideoDigitizerComponent ci, Rect *digitizerRect)
  2809. ;
  2810.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2811.         Macro
  2812.         _VDGetDigitizerRect
  2813.             move.l              #$00040004,-(sp)
  2814.             moveq               #0,D0
  2815.             dc.w                $A82A
  2816.         EndM
  2817.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2818.         IMPORT_CFM_FUNCTION VDGetDigitizerRect
  2819.     ENDIF
  2820.  
  2821. ;
  2822. ; pascal VideoDigitizerError VDGetVBlankRect(VideoDigitizerComponent ci, short inputStd, Rect *vBlankRect)
  2823. ;
  2824.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2825.         Macro
  2826.         _VDGetVBlankRect
  2827.             move.l              #$00060005,-(sp)
  2828.             moveq               #0,D0
  2829.             dc.w                $A82A
  2830.         EndM
  2831.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2832.         IMPORT_CFM_FUNCTION VDGetVBlankRect
  2833.     ENDIF
  2834.  
  2835. ;
  2836. ; pascal VideoDigitizerError VDGetMaskPixMap(VideoDigitizerComponent ci, PixMapHandle maskPixMap)
  2837. ;
  2838.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2839.         Macro
  2840.         _VDGetMaskPixMap
  2841.             move.l              #$00040006,-(sp)
  2842.             moveq               #0,D0
  2843.             dc.w                $A82A
  2844.         EndM
  2845.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2846.         IMPORT_CFM_FUNCTION VDGetMaskPixMap
  2847.     ENDIF
  2848.  
  2849. ;
  2850. ; pascal VideoDigitizerError VDGetPlayThruDestination(VideoDigitizerComponent ci, PixMapHandle *dest, Rect *destRect, MatrixRecord *m, RgnHandle *mask)
  2851. ;
  2852.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2853.         Macro
  2854.         _VDGetPlayThruDestination
  2855.             move.l              #$00100008,-(sp)
  2856.             moveq               #0,D0
  2857.             dc.w                $A82A
  2858.         EndM
  2859.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2860.         IMPORT_CFM_FUNCTION VDGetPlayThruDestination
  2861.     ENDIF
  2862.  
  2863. ;
  2864. ; pascal VideoDigitizerError VDUseThisCLUT(VideoDigitizerComponent ci, CTabHandle colorTableHandle)
  2865. ;
  2866.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2867.         Macro
  2868.         _VDUseThisCLUT
  2869.             move.l              #$00040009,-(sp)
  2870.             moveq               #0,D0
  2871.             dc.w                $A82A
  2872.         EndM
  2873.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2874.         IMPORT_CFM_FUNCTION VDUseThisCLUT
  2875.     ENDIF
  2876.  
  2877. ;
  2878. ; pascal VideoDigitizerError VDSetInputGammaValue(VideoDigitizerComponent ci, Fixed channel1, Fixed channel2, Fixed channel3)
  2879. ;
  2880.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2881.         Macro
  2882.         _VDSetInputGammaValue
  2883.             move.l              #$000C000A,-(sp)
  2884.             moveq               #0,D0
  2885.             dc.w                $A82A
  2886.         EndM
  2887.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2888.         IMPORT_CFM_FUNCTION VDSetInputGammaValue
  2889.     ENDIF
  2890.  
  2891. ;
  2892. ; pascal VideoDigitizerError VDGetInputGammaValue(VideoDigitizerComponent ci, Fixed *channel1, Fixed *channel2, Fixed *channel3)
  2893. ;
  2894.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2895.         Macro
  2896.         _VDGetInputGammaValue
  2897.             move.l              #$000C000B,-(sp)
  2898.             moveq               #0,D0
  2899.             dc.w                $A82A
  2900.         EndM
  2901.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2902.         IMPORT_CFM_FUNCTION VDGetInputGammaValue
  2903.     ENDIF
  2904.  
  2905. ;
  2906. ; pascal VideoDigitizerError VDSetBrightness(VideoDigitizerComponent ci, unsigned short *brightness)
  2907. ;
  2908.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2909.         Macro
  2910.         _VDSetBrightness
  2911.             move.l              #$0004000C,-(sp)
  2912.             moveq               #0,D0
  2913.             dc.w                $A82A
  2914.         EndM
  2915.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2916.         IMPORT_CFM_FUNCTION VDSetBrightness
  2917.     ENDIF
  2918.  
  2919. ;
  2920. ; pascal VideoDigitizerError VDGetBrightness(VideoDigitizerComponent ci, unsigned short *brightness)
  2921. ;
  2922.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2923.         Macro
  2924.         _VDGetBrightness
  2925.             move.l              #$0004000D,-(sp)
  2926.             moveq               #0,D0
  2927.             dc.w                $A82A
  2928.         EndM
  2929.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2930.         IMPORT_CFM_FUNCTION VDGetBrightness
  2931.     ENDIF
  2932.  
  2933. ;
  2934. ; pascal VideoDigitizerError VDSetContrast(VideoDigitizerComponent ci, unsigned short *contrast)
  2935. ;
  2936.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2937.         Macro
  2938.         _VDSetContrast
  2939.             move.l              #$0004000E,-(sp)
  2940.             moveq               #0,D0
  2941.             dc.w                $A82A
  2942.         EndM
  2943.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2944.         IMPORT_CFM_FUNCTION VDSetContrast
  2945.     ENDIF
  2946.  
  2947. ;
  2948. ; pascal VideoDigitizerError VDSetHue(VideoDigitizerComponent ci, unsigned short *hue)
  2949. ;
  2950.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2951.         Macro
  2952.         _VDSetHue
  2953.             move.l              #$0004000F,-(sp)
  2954.             moveq               #0,D0
  2955.             dc.w                $A82A
  2956.         EndM
  2957.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2958.         IMPORT_CFM_FUNCTION VDSetHue
  2959.     ENDIF
  2960.  
  2961. ;
  2962. ; pascal VideoDigitizerError VDSetSharpness(VideoDigitizerComponent ci, unsigned short *sharpness)
  2963. ;
  2964.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2965.         Macro
  2966.         _VDSetSharpness
  2967.             move.l              #$00040010,-(sp)
  2968.             moveq               #0,D0
  2969.             dc.w                $A82A
  2970.         EndM
  2971.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2972.         IMPORT_CFM_FUNCTION VDSetSharpness
  2973.     ENDIF
  2974.  
  2975. ;
  2976. ; pascal VideoDigitizerError VDSetSaturation(VideoDigitizerComponent ci, unsigned short *saturation)
  2977. ;
  2978.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2979.         Macro
  2980.         _VDSetSaturation
  2981.             move.l              #$00040011,-(sp)
  2982.             moveq               #0,D0
  2983.             dc.w                $A82A
  2984.         EndM
  2985.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2986.         IMPORT_CFM_FUNCTION VDSetSaturation
  2987.     ENDIF
  2988.  
  2989. ;
  2990. ; pascal VideoDigitizerError VDGetContrast(VideoDigitizerComponent ci, unsigned short *contrast)
  2991. ;
  2992.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2993.         Macro
  2994.         _VDGetContrast
  2995.             move.l              #$00040012,-(sp)
  2996.             moveq               #0,D0
  2997.             dc.w                $A82A
  2998.         EndM
  2999.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3000.         IMPORT_CFM_FUNCTION VDGetContrast
  3001.     ENDIF
  3002.  
  3003. ;
  3004. ; pascal VideoDigitizerError VDGetHue(VideoDigitizerComponent ci, unsigned short *hue)
  3005. ;
  3006.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3007.         Macro
  3008.         _VDGetHue
  3009.             move.l              #$00040013,-(sp)
  3010.             moveq               #0,D0
  3011.             dc.w                $A82A
  3012.         EndM
  3013.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3014.         IMPORT_CFM_FUNCTION VDGetHue
  3015.     ENDIF
  3016.  
  3017. ;
  3018. ; pascal VideoDigitizerError VDGetSharpness(VideoDigitizerComponent ci, unsigned short *sharpness)
  3019. ;
  3020.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3021.         Macro
  3022.         _VDGetSharpness
  3023.             move.l              #$00040014,-(sp)
  3024.             moveq               #0,D0
  3025.             dc.w                $A82A
  3026.         EndM
  3027.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3028.         IMPORT_CFM_FUNCTION VDGetSharpness
  3029.     ENDIF
  3030.  
  3031. ;
  3032. ; pascal VideoDigitizerError VDGetSaturation(VideoDigitizerComponent ci, unsigned short *saturation)
  3033. ;
  3034.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3035.         Macro
  3036.         _VDGetSaturation
  3037.             move.l              #$00040015,-(sp)
  3038.             moveq               #0,D0
  3039.             dc.w                $A82A
  3040.         EndM
  3041.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3042.         IMPORT_CFM_FUNCTION VDGetSaturation
  3043.     ENDIF
  3044.  
  3045. ;
  3046. ; pascal VideoDigitizerError VDGrabOneFrame(VideoDigitizerComponent ci)
  3047. ;
  3048.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3049.         Macro
  3050.         _VDGrabOneFrame
  3051.             move.l              #$00000016,-(sp)
  3052.             moveq               #0,D0
  3053.             dc.w                $A82A
  3054.         EndM
  3055.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3056.         IMPORT_CFM_FUNCTION VDGrabOneFrame
  3057.     ENDIF
  3058.  
  3059. ;
  3060. ; pascal VideoDigitizerError VDGetMaxAuxBuffer(VideoDigitizerComponent ci, PixMapHandle *pm, Rect *r)
  3061. ;
  3062.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3063.         Macro
  3064.         _VDGetMaxAuxBuffer
  3065.             move.l              #$00080017,-(sp)
  3066.             moveq               #0,D0
  3067.             dc.w                $A82A
  3068.         EndM
  3069.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3070.         IMPORT_CFM_FUNCTION VDGetMaxAuxBuffer
  3071.     ENDIF
  3072.  
  3073. ;
  3074. ; pascal VideoDigitizerError VDGetDigitizerInfo(VideoDigitizerComponent ci, DigitizerInfo *info)
  3075. ;
  3076.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3077.         Macro
  3078.         _VDGetDigitizerInfo
  3079.             move.l              #$00040019,-(sp)
  3080.             moveq               #0,D0
  3081.             dc.w                $A82A
  3082.         EndM
  3083.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3084.         IMPORT_CFM_FUNCTION VDGetDigitizerInfo
  3085.     ENDIF
  3086.  
  3087. ;
  3088. ; pascal VideoDigitizerError VDGetCurrentFlags(VideoDigitizerComponent ci, long *inputCurrentFlag, long *outputCurrentFlag)
  3089. ;
  3090.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3091.         Macro
  3092.         _VDGetCurrentFlags
  3093.             move.l              #$0008001A,-(sp)
  3094.             moveq               #0,D0
  3095.             dc.w                $A82A
  3096.         EndM
  3097.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3098.         IMPORT_CFM_FUNCTION VDGetCurrentFlags
  3099.     ENDIF
  3100.  
  3101. ;
  3102. ; pascal VideoDigitizerError VDSetKeyColor(VideoDigitizerComponent ci, long index)
  3103. ;
  3104.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3105.         Macro
  3106.         _VDSetKeyColor
  3107.             move.l              #$0004001B,-(sp)
  3108.             moveq               #0,D0
  3109.             dc.w                $A82A
  3110.         EndM
  3111.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3112.         IMPORT_CFM_FUNCTION VDSetKeyColor
  3113.     ENDIF
  3114.  
  3115. ;
  3116. ; pascal VideoDigitizerError VDGetKeyColor(VideoDigitizerComponent ci, long *index)
  3117. ;
  3118.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3119.         Macro
  3120.         _VDGetKeyColor
  3121.             move.l              #$0004001C,-(sp)
  3122.             moveq               #0,D0
  3123.             dc.w                $A82A
  3124.         EndM
  3125.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3126.         IMPORT_CFM_FUNCTION VDGetKeyColor
  3127.     ENDIF
  3128.  
  3129. ;
  3130. ; pascal VideoDigitizerError VDAddKeyColor(VideoDigitizerComponent ci, long *index)
  3131. ;
  3132.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3133.         Macro
  3134.         _VDAddKeyColor
  3135.             move.l              #$0004001D,-(sp)
  3136.             moveq               #0,D0
  3137.             dc.w                $A82A
  3138.         EndM
  3139.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3140.         IMPORT_CFM_FUNCTION VDAddKeyColor
  3141.     ENDIF
  3142.  
  3143. ;
  3144. ; pascal VideoDigitizerError VDGetNextKeyColor(VideoDigitizerComponent ci, long index)
  3145. ;
  3146.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3147.         Macro
  3148.         _VDGetNextKeyColor
  3149.             move.l              #$0004001E,-(sp)
  3150.             moveq               #0,D0
  3151.             dc.w                $A82A
  3152.         EndM
  3153.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3154.         IMPORT_CFM_FUNCTION VDGetNextKeyColor
  3155.     ENDIF
  3156.  
  3157. ;
  3158. ; pascal VideoDigitizerError VDSetKeyColorRange(VideoDigitizerComponent ci, RGBColor *minRGB, RGBColor *maxRGB)
  3159. ;
  3160.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3161.         Macro
  3162.         _VDSetKeyColorRange
  3163.             move.l              #$0008001F,-(sp)
  3164.             moveq               #0,D0
  3165.             dc.w                $A82A
  3166.         EndM
  3167.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3168.         IMPORT_CFM_FUNCTION VDSetKeyColorRange
  3169.     ENDIF
  3170.  
  3171. ;
  3172. ; pascal VideoDigitizerError VDGetKeyColorRange(VideoDigitizerComponent ci, RGBColor *minRGB, RGBColor *maxRGB)
  3173. ;
  3174.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3175.         Macro
  3176.         _VDGetKeyColorRange
  3177.             move.l              #$00080020,-(sp)
  3178.             moveq               #0,D0
  3179.             dc.w                $A82A
  3180.         EndM
  3181.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3182.         IMPORT_CFM_FUNCTION VDGetKeyColorRange
  3183.     ENDIF
  3184.  
  3185. ;
  3186. ; pascal VideoDigitizerError VDSetDigitizerUserInterrupt(VideoDigitizerComponent ci, long flags, VdigIntUPP userInterruptProc, long refcon)
  3187. ;
  3188.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3189.         Macro
  3190.         _VDSetDigitizerUserInterrupt
  3191.             move.l              #$000C0021,-(sp)
  3192.             moveq               #0,D0
  3193.             dc.w                $A82A
  3194.         EndM
  3195.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3196.         IMPORT_CFM_FUNCTION VDSetDigitizerUserInterrupt
  3197.     ENDIF
  3198.  
  3199. ;
  3200. ; pascal VideoDigitizerError VDSetInputColorSpaceMode(VideoDigitizerComponent ci, short colorSpaceMode)
  3201. ;
  3202.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3203.         Macro
  3204.         _VDSetInputColorSpaceMode
  3205.             move.l              #$00020022,-(sp)
  3206.             moveq               #0,D0
  3207.             dc.w                $A82A
  3208.         EndM
  3209.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3210.         IMPORT_CFM_FUNCTION VDSetInputColorSpaceMode
  3211.     ENDIF
  3212.  
  3213. ;
  3214. ; pascal VideoDigitizerError VDGetInputColorSpaceMode(VideoDigitizerComponent ci, short *colorSpaceMode)
  3215. ;
  3216.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3217.         Macro
  3218.         _VDGetInputColorSpaceMode
  3219.             move.l              #$00040023,-(sp)
  3220.             moveq               #0,D0
  3221.             dc.w                $A82A
  3222.         EndM
  3223.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3224.         IMPORT_CFM_FUNCTION VDGetInputColorSpaceMode
  3225.     ENDIF
  3226.  
  3227. ;
  3228. ; pascal VideoDigitizerError VDSetClipState(VideoDigitizerComponent ci, short clipEnable)
  3229. ;
  3230.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3231.         Macro
  3232.         _VDSetClipState
  3233.             move.l              #$00020024,-(sp)
  3234.             moveq               #0,D0
  3235.             dc.w                $A82A
  3236.         EndM
  3237.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3238.         IMPORT_CFM_FUNCTION VDSetClipState
  3239.     ENDIF
  3240.  
  3241. ;
  3242. ; pascal VideoDigitizerError VDGetClipState(VideoDigitizerComponent ci, short *clipEnable)
  3243. ;
  3244.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3245.         Macro
  3246.         _VDGetClipState
  3247.             move.l              #$00040025,-(sp)
  3248.             moveq               #0,D0
  3249.             dc.w                $A82A
  3250.         EndM
  3251.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3252.         IMPORT_CFM_FUNCTION VDGetClipState
  3253.     ENDIF
  3254.  
  3255. ;
  3256. ; pascal VideoDigitizerError VDSetClipRgn(VideoDigitizerComponent ci, RgnHandle clipRegion)
  3257. ;
  3258.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3259.         Macro
  3260.         _VDSetClipRgn
  3261.             move.l              #$00040026,-(sp)
  3262.             moveq               #0,D0
  3263.             dc.w                $A82A
  3264.         EndM
  3265.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3266.         IMPORT_CFM_FUNCTION VDSetClipRgn
  3267.     ENDIF
  3268.  
  3269. ;
  3270. ; pascal VideoDigitizerError VDClearClipRgn(VideoDigitizerComponent ci, RgnHandle clipRegion)
  3271. ;
  3272.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3273.         Macro
  3274.         _VDClearClipRgn
  3275.             move.l              #$00040027,-(sp)
  3276.             moveq               #0,D0
  3277.             dc.w                $A82A
  3278.         EndM
  3279.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3280.         IMPORT_CFM_FUNCTION VDClearClipRgn
  3281.     ENDIF
  3282.  
  3283. ;
  3284. ; pascal VideoDigitizerError VDGetCLUTInUse(VideoDigitizerComponent ci, CTabHandle *colorTableHandle)
  3285. ;
  3286.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3287.         Macro
  3288.         _VDGetCLUTInUse
  3289.             move.l              #$00040028,-(sp)
  3290.             moveq               #0,D0
  3291.             dc.w                $A82A
  3292.         EndM
  3293.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3294.         IMPORT_CFM_FUNCTION VDGetCLUTInUse
  3295.     ENDIF
  3296.  
  3297. ;
  3298. ; pascal VideoDigitizerError VDSetPLLFilterType(VideoDigitizerComponent ci, short pllType)
  3299. ;
  3300.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3301.         Macro
  3302.         _VDSetPLLFilterType
  3303.             move.l              #$00020029,-(sp)
  3304.             moveq               #0,D0
  3305.             dc.w                $A82A
  3306.         EndM
  3307.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3308.         IMPORT_CFM_FUNCTION VDSetPLLFilterType
  3309.     ENDIF
  3310.  
  3311. ;
  3312. ; pascal VideoDigitizerError VDGetPLLFilterType(VideoDigitizerComponent ci, short *pllType)
  3313. ;
  3314.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3315.         Macro
  3316.         _VDGetPLLFilterType
  3317.             move.l              #$0004002A,-(sp)
  3318.             moveq               #0,D0
  3319.             dc.w                $A82A
  3320.         EndM
  3321.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3322.         IMPORT_CFM_FUNCTION VDGetPLLFilterType
  3323.     ENDIF
  3324.  
  3325. ;
  3326. ; pascal VideoDigitizerError VDGetMaskandValue(VideoDigitizerComponent ci, unsigned short blendLevel, long *mask, long *value)
  3327. ;
  3328.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3329.         Macro
  3330.         _VDGetMaskandValue
  3331.             move.l              #$000A002B,-(sp)
  3332.             moveq               #0,D0
  3333.             dc.w                $A82A
  3334.         EndM
  3335.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3336.         IMPORT_CFM_FUNCTION VDGetMaskandValue
  3337.     ENDIF
  3338.  
  3339. ;
  3340. ; pascal VideoDigitizerError VDSetMasterBlendLevel(VideoDigitizerComponent ci, unsigned short *blendLevel)
  3341. ;
  3342.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3343.         Macro
  3344.         _VDSetMasterBlendLevel
  3345.             move.l              #$0004002C,-(sp)
  3346.             moveq               #0,D0
  3347.             dc.w                $A82A
  3348.         EndM
  3349.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3350.         IMPORT_CFM_FUNCTION VDSetMasterBlendLevel
  3351.     ENDIF
  3352.  
  3353. ;
  3354. ; pascal VideoDigitizerError VDSetPlayThruDestination(VideoDigitizerComponent ci, PixMapHandle dest, RectPtr destRect, MatrixRecordPtr m, RgnHandle mask)
  3355. ;
  3356.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3357.         Macro
  3358.         _VDSetPlayThruDestination
  3359.             move.l              #$0010002D,-(sp)
  3360.             moveq               #0,D0
  3361.             dc.w                $A82A
  3362.         EndM
  3363.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3364.         IMPORT_CFM_FUNCTION VDSetPlayThruDestination
  3365.     ENDIF
  3366.  
  3367. ;
  3368. ; pascal VideoDigitizerError VDSetPlayThruOnOff(VideoDigitizerComponent ci, short state)
  3369. ;
  3370.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3371.         Macro
  3372.         _VDSetPlayThruOnOff
  3373.             move.l              #$0002002E,-(sp)
  3374.             moveq               #0,D0
  3375.             dc.w                $A82A
  3376.         EndM
  3377.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3378.         IMPORT_CFM_FUNCTION VDSetPlayThruOnOff
  3379.     ENDIF
  3380.  
  3381. ;
  3382. ; pascal VideoDigitizerError VDSetFieldPreference(VideoDigitizerComponent ci, short fieldFlag)
  3383. ;
  3384.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3385.         Macro
  3386.         _VDSetFieldPreference
  3387.             move.l              #$0002002F,-(sp)
  3388.             moveq               #0,D0
  3389.             dc.w                $A82A
  3390.         EndM
  3391.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3392.         IMPORT_CFM_FUNCTION VDSetFieldPreference
  3393.     ENDIF
  3394.  
  3395. ;
  3396. ; pascal VideoDigitizerError VDGetFieldPreference(VideoDigitizerComponent ci, short *fieldFlag)
  3397. ;
  3398.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3399.         Macro
  3400.         _VDGetFieldPreference
  3401.             move.l              #$00040030,-(sp)
  3402.             moveq               #0,D0
  3403.             dc.w                $A82A
  3404.         EndM
  3405.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3406.         IMPORT_CFM_FUNCTION VDGetFieldPreference
  3407.     ENDIF
  3408.  
  3409. ;
  3410. ; pascal VideoDigitizerError VDPreflightDestination(VideoDigitizerComponent ci, Rect *digitizerRect, PixMap **dest, RectPtr destRect, MatrixRecordPtr m)
  3411. ;
  3412.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3413.         Macro
  3414.         _VDPreflightDestination
  3415.             move.l              #$00100032,-(sp)
  3416.             moveq               #0,D0
  3417.             dc.w                $A82A
  3418.         EndM
  3419.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3420.         IMPORT_CFM_FUNCTION VDPreflightDestination
  3421.     ENDIF
  3422.  
  3423. ;
  3424. ; pascal VideoDigitizerError VDPreflightGlobalRect(VideoDigitizerComponent ci, GrafPtr theWindow, Rect *globalRect)
  3425. ;
  3426.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3427.         Macro
  3428.         _VDPreflightGlobalRect
  3429.             move.l              #$00080033,-(sp)
  3430.             moveq               #0,D0
  3431.             dc.w                $A82A
  3432.         EndM
  3433.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3434.         IMPORT_CFM_FUNCTION VDPreflightGlobalRect
  3435.     ENDIF
  3436.  
  3437. ;
  3438. ; pascal VideoDigitizerError VDSetPlayThruGlobalRect(VideoDigitizerComponent ci, GrafPtr theWindow, Rect *globalRect)
  3439. ;
  3440.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3441.         Macro
  3442.         _VDSetPlayThruGlobalRect
  3443.             move.l              #$00080034,-(sp)
  3444.             moveq               #0,D0
  3445.             dc.w                $A82A
  3446.         EndM
  3447.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3448.         IMPORT_CFM_FUNCTION VDSetPlayThruGlobalRect
  3449.     ENDIF
  3450.  
  3451. ;
  3452. ; pascal VideoDigitizerError VDSetInputGammaRecord(VideoDigitizerComponent ci, VDGamRecPtr inputGammaPtr)
  3453. ;
  3454.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3455.         Macro
  3456.         _VDSetInputGammaRecord
  3457.             move.l              #$00040035,-(sp)
  3458.             moveq               #0,D0
  3459.             dc.w                $A82A
  3460.         EndM
  3461.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3462.         IMPORT_CFM_FUNCTION VDSetInputGammaRecord
  3463.     ENDIF
  3464.  
  3465. ;
  3466. ; pascal VideoDigitizerError VDGetInputGammaRecord(VideoDigitizerComponent ci, VDGamRecPtr *inputGammaPtr)
  3467. ;
  3468.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3469.         Macro
  3470.         _VDGetInputGammaRecord
  3471.             move.l              #$00040036,-(sp)
  3472.             moveq               #0,D0
  3473.             dc.w                $A82A
  3474.         EndM
  3475.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3476.         IMPORT_CFM_FUNCTION VDGetInputGammaRecord
  3477.     ENDIF
  3478.  
  3479. ;
  3480. ; pascal VideoDigitizerError VDSetBlackLevelValue(VideoDigitizerComponent ci, unsigned short *blackLevel)
  3481. ;
  3482.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3483.         Macro
  3484.         _VDSetBlackLevelValue
  3485.             move.l              #$00040037,-(sp)
  3486.             moveq               #0,D0
  3487.             dc.w                $A82A
  3488.         EndM
  3489.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3490.         IMPORT_CFM_FUNCTION VDSetBlackLevelValue
  3491.     ENDIF
  3492.  
  3493. ;
  3494. ; pascal VideoDigitizerError VDGetBlackLevelValue(VideoDigitizerComponent ci, unsigned short *blackLevel)
  3495. ;
  3496.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3497.         Macro
  3498.         _VDGetBlackLevelValue
  3499.             move.l              #$00040038,-(sp)
  3500.             moveq               #0,D0
  3501.             dc.w                $A82A
  3502.         EndM
  3503.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3504.         IMPORT_CFM_FUNCTION VDGetBlackLevelValue
  3505.     ENDIF
  3506.  
  3507. ;
  3508. ; pascal VideoDigitizerError VDSetWhiteLevelValue(VideoDigitizerComponent ci, unsigned short *whiteLevel)
  3509. ;
  3510.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3511.         Macro
  3512.         _VDSetWhiteLevelValue
  3513.             move.l              #$00040039,-(sp)
  3514.             moveq               #0,D0
  3515.             dc.w                $A82A
  3516.         EndM
  3517.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3518.         IMPORT_CFM_FUNCTION VDSetWhiteLevelValue
  3519.     ENDIF
  3520.  
  3521. ;
  3522. ; pascal VideoDigitizerError VDGetWhiteLevelValue(VideoDigitizerComponent ci, unsigned short *whiteLevel)
  3523. ;
  3524.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3525.         Macro
  3526.         _VDGetWhiteLevelValue
  3527.             move.l              #$0004003A,-(sp)
  3528.             moveq               #0,D0
  3529.             dc.w                $A82A
  3530.         EndM
  3531.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3532.         IMPORT_CFM_FUNCTION VDGetWhiteLevelValue
  3533.     ENDIF
  3534.  
  3535. ;
  3536. ; pascal VideoDigitizerError VDGetVideoDefaults(VideoDigitizerComponent ci, unsigned short *blackLevel, unsigned short *whiteLevel, unsigned short *brightness, unsigned short *hue, unsigned short *saturation, unsigned short *contrast, unsigned short *sharpness)
  3537. ;
  3538.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3539.         Macro
  3540.         _VDGetVideoDefaults
  3541.             move.l              #$001C003B,-(sp)
  3542.             moveq               #0,D0
  3543.             dc.w                $A82A
  3544.         EndM
  3545.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3546.         IMPORT_CFM_FUNCTION VDGetVideoDefaults
  3547.     ENDIF
  3548.  
  3549. ;
  3550. ; pascal VideoDigitizerError VDGetNumberOfInputs(VideoDigitizerComponent ci, short *inputs)
  3551. ;
  3552.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3553.         Macro
  3554.         _VDGetNumberOfInputs
  3555.             move.l              #$0004003C,-(sp)
  3556.             moveq               #0,D0
  3557.             dc.w                $A82A
  3558.         EndM
  3559.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3560.         IMPORT_CFM_FUNCTION VDGetNumberOfInputs
  3561.     ENDIF
  3562.  
  3563. ;
  3564. ; pascal VideoDigitizerError VDGetInputFormat(VideoDigitizerComponent ci, short input, short *format)
  3565. ;
  3566.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3567.         Macro
  3568.         _VDGetInputFormat
  3569.             move.l              #$0006003D,-(sp)
  3570.             moveq               #0,D0
  3571.             dc.w                $A82A
  3572.         EndM
  3573.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3574.         IMPORT_CFM_FUNCTION VDGetInputFormat
  3575.     ENDIF
  3576.  
  3577. ;
  3578. ; pascal VideoDigitizerError VDSetInput(VideoDigitizerComponent ci, short input)
  3579. ;
  3580.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3581.         Macro
  3582.         _VDSetInput
  3583.             move.l              #$0002003E,-(sp)
  3584.             moveq               #0,D0
  3585.             dc.w                $A82A
  3586.         EndM
  3587.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3588.         IMPORT_CFM_FUNCTION VDSetInput
  3589.     ENDIF
  3590.  
  3591. ;
  3592. ; pascal VideoDigitizerError VDGetInput(VideoDigitizerComponent ci, short *input)
  3593. ;
  3594.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3595.         Macro
  3596.         _VDGetInput
  3597.             move.l              #$0004003F,-(sp)
  3598.             moveq               #0,D0
  3599.             dc.w                $A82A
  3600.         EndM
  3601.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3602.         IMPORT_CFM_FUNCTION VDGetInput
  3603.     ENDIF
  3604.  
  3605. ;
  3606. ; pascal VideoDigitizerError VDSetInputStandard(VideoDigitizerComponent ci, short inputStandard)
  3607. ;
  3608.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3609.         Macro
  3610.         _VDSetInputStandard
  3611.             move.l              #$00020040,-(sp)
  3612.             moveq               #0,D0
  3613.             dc.w                $A82A
  3614.         EndM
  3615.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3616.         IMPORT_CFM_FUNCTION VDSetInputStandard
  3617.     ENDIF
  3618.  
  3619. ;
  3620. ; pascal VideoDigitizerError VDSetupBuffers(VideoDigitizerComponent ci, VdigBufferRecListHandle bufferList)
  3621. ;
  3622.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3623.         Macro
  3624.         _VDSetupBuffers
  3625.             move.l              #$00040041,-(sp)
  3626.             moveq               #0,D0
  3627.             dc.w                $A82A
  3628.         EndM
  3629.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3630.         IMPORT_CFM_FUNCTION VDSetupBuffers
  3631.     ENDIF
  3632.  
  3633. ;
  3634. ; pascal VideoDigitizerError VDGrabOneFrameAsync(VideoDigitizerComponent ci, short buffer)
  3635. ;
  3636.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3637.         Macro
  3638.         _VDGrabOneFrameAsync
  3639.             move.l              #$00020042,-(sp)
  3640.             moveq               #0,D0
  3641.             dc.w                $A82A
  3642.         EndM
  3643.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3644.         IMPORT_CFM_FUNCTION VDGrabOneFrameAsync
  3645.     ENDIF
  3646.  
  3647. ;
  3648. ; pascal VideoDigitizerError VDDone(VideoDigitizerComponent ci, short buffer)
  3649. ;
  3650.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3651.         Macro
  3652.         _VDDone
  3653.             move.l              #$00020043,-(sp)
  3654.             moveq               #0,D0
  3655.             dc.w                $A82A
  3656.         EndM
  3657.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3658.         IMPORT_CFM_FUNCTION VDDone
  3659.     ENDIF
  3660.  
  3661. ;
  3662. ; pascal VideoDigitizerError VDSetCompression(VideoDigitizerComponent ci, OSType compressType, short depth, Rect *bounds, CodecQ spatialQuality, CodecQ temporalQuality, long keyFrameRate)
  3663. ;
  3664.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3665.         Macro
  3666.         _VDSetCompression
  3667.             move.l              #$00160044,-(sp)
  3668.             moveq               #0,D0
  3669.             dc.w                $A82A
  3670.         EndM
  3671.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3672.         IMPORT_CFM_FUNCTION VDSetCompression
  3673.     ENDIF
  3674.  
  3675. ;
  3676. ; pascal VideoDigitizerError VDCompressOneFrameAsync(VideoDigitizerComponent ci)
  3677. ;
  3678.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3679.         Macro
  3680.         _VDCompressOneFrameAsync
  3681.             move.l              #$00000045,-(sp)
  3682.             moveq               #0,D0
  3683.             dc.w                $A82A
  3684.         EndM
  3685.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3686.         IMPORT_CFM_FUNCTION VDCompressOneFrameAsync
  3687.     ENDIF
  3688.  
  3689. ;
  3690. ; pascal VideoDigitizerError VDCompressDone(VideoDigitizerComponent ci, Boolean *done, Ptr *theData, long *dataSize, UInt8 *similarity, TimeRecord *t)
  3691. ;
  3692.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3693.         Macro
  3694.         _VDCompressDone
  3695.             move.l              #$00140046,-(sp)
  3696.             moveq               #0,D0
  3697.             dc.w                $A82A
  3698.         EndM
  3699.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3700.         IMPORT_CFM_FUNCTION VDCompressDone
  3701.     ENDIF
  3702.  
  3703. ;
  3704. ; pascal VideoDigitizerError VDReleaseCompressBuffer(VideoDigitizerComponent ci, Ptr bufferAddr)
  3705. ;
  3706.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3707.         Macro
  3708.         _VDReleaseCompressBuffer
  3709.             move.l              #$00040047,-(sp)
  3710.             moveq               #0,D0
  3711.             dc.w                $A82A
  3712.         EndM
  3713.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3714.         IMPORT_CFM_FUNCTION VDReleaseCompressBuffer
  3715.     ENDIF
  3716.  
  3717. ;
  3718. ; pascal VideoDigitizerError VDGetImageDescription(VideoDigitizerComponent ci, ImageDescriptionHandle desc)
  3719. ;
  3720.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3721.         Macro
  3722.         _VDGetImageDescription
  3723.             move.l              #$00040048,-(sp)
  3724.             moveq               #0,D0
  3725.             dc.w                $A82A
  3726.         EndM
  3727.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3728.         IMPORT_CFM_FUNCTION VDGetImageDescription
  3729.     ENDIF
  3730.  
  3731. ;
  3732. ; pascal VideoDigitizerError VDResetCompressSequence(VideoDigitizerComponent ci)
  3733. ;
  3734.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3735.         Macro
  3736.         _VDResetCompressSequence
  3737.             move.l              #$00000049,-(sp)
  3738.             moveq               #0,D0
  3739.             dc.w                $A82A
  3740.         EndM
  3741.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3742.         IMPORT_CFM_FUNCTION VDResetCompressSequence
  3743.     ENDIF
  3744.  
  3745. ;
  3746. ; pascal VideoDigitizerError VDSetCompressionOnOff(VideoDigitizerComponent ci, Boolean state)
  3747. ;
  3748.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3749.         Macro
  3750.         _VDSetCompressionOnOff
  3751.             move.l              #$0002004A,-(sp)
  3752.             moveq               #0,D0
  3753.             dc.w                $A82A
  3754.         EndM
  3755.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3756.         IMPORT_CFM_FUNCTION VDSetCompressionOnOff
  3757.     ENDIF
  3758.  
  3759. ;
  3760. ; pascal VideoDigitizerError VDGetCompressionTypes(VideoDigitizerComponent ci, VDCompressionListHandle h)
  3761. ;
  3762.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3763.         Macro
  3764.         _VDGetCompressionTypes
  3765.             move.l              #$0004004B,-(sp)
  3766.             moveq               #0,D0
  3767.             dc.w                $A82A
  3768.         EndM
  3769.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3770.         IMPORT_CFM_FUNCTION VDGetCompressionTypes
  3771.     ENDIF
  3772.  
  3773. ;
  3774. ; pascal VideoDigitizerError VDSetTimeBase(VideoDigitizerComponent ci, TimeBase t)
  3775. ;
  3776.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3777.         Macro
  3778.         _VDSetTimeBase
  3779.             move.l              #$0004004C,-(sp)
  3780.             moveq               #0,D0
  3781.             dc.w                $A82A
  3782.         EndM
  3783.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3784.         IMPORT_CFM_FUNCTION VDSetTimeBase
  3785.     ENDIF
  3786.  
  3787. ;
  3788. ; pascal VideoDigitizerError VDSetFrameRate(VideoDigitizerComponent ci, Fixed framesPerSecond)
  3789. ;
  3790.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3791.         Macro
  3792.         _VDSetFrameRate
  3793.             move.l              #$0004004D,-(sp)
  3794.             moveq               #0,D0
  3795.             dc.w                $A82A
  3796.         EndM
  3797.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3798.         IMPORT_CFM_FUNCTION VDSetFrameRate
  3799.     ENDIF
  3800.  
  3801. ;
  3802. ; pascal VideoDigitizerError VDGetDataRate(VideoDigitizerComponent ci, long *milliSecPerFrame, Fixed *framesPerSecond, long *bytesPerSecond)
  3803. ;
  3804.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3805.         Macro
  3806.         _VDGetDataRate
  3807.             move.l              #$000C004E,-(sp)
  3808.             moveq               #0,D0
  3809.             dc.w                $A82A
  3810.         EndM
  3811.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3812.         IMPORT_CFM_FUNCTION VDGetDataRate
  3813.     ENDIF
  3814.  
  3815. ;
  3816. ; pascal VideoDigitizerError VDGetSoundInputDriver(VideoDigitizerComponent ci, Str255 soundDriverName)
  3817. ;
  3818.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3819.         Macro
  3820.         _VDGetSoundInputDriver
  3821.             move.l              #$0004004F,-(sp)
  3822.             moveq               #0,D0
  3823.             dc.w                $A82A
  3824.         EndM
  3825.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3826.         IMPORT_CFM_FUNCTION VDGetSoundInputDriver
  3827.     ENDIF
  3828.  
  3829. ;
  3830. ; pascal VideoDigitizerError VDGetDMADepths(VideoDigitizerComponent ci, long *depthArray, long *preferredDepth)
  3831. ;
  3832.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3833.         Macro
  3834.         _VDGetDMADepths
  3835.             move.l              #$00080050,-(sp)
  3836.             moveq               #0,D0
  3837.             dc.w                $A82A
  3838.         EndM
  3839.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3840.         IMPORT_CFM_FUNCTION VDGetDMADepths
  3841.     ENDIF
  3842.  
  3843. ;
  3844. ; pascal VideoDigitizerError VDGetPreferredTimeScale(VideoDigitizerComponent ci, TimeScale *preferred)
  3845. ;
  3846.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3847.         Macro
  3848.         _VDGetPreferredTimeScale
  3849.             move.l              #$00040051,-(sp)
  3850.             moveq               #0,D0
  3851.             dc.w                $A82A
  3852.         EndM
  3853.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3854.         IMPORT_CFM_FUNCTION VDGetPreferredTimeScale
  3855.     ENDIF
  3856.  
  3857. ;
  3858. ; pascal VideoDigitizerError VDReleaseAsyncBuffers(VideoDigitizerComponent ci)
  3859. ;
  3860.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3861.         Macro
  3862.         _VDReleaseAsyncBuffers
  3863.             move.l              #$00000052,-(sp)
  3864.             moveq               #0,D0
  3865.             dc.w                $A82A
  3866.         EndM
  3867.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3868.         IMPORT_CFM_FUNCTION VDReleaseAsyncBuffers
  3869.     ENDIF
  3870.  
  3871. ;  83 is reserved for compatibility reasons 
  3872. ;
  3873. ; pascal VideoDigitizerError VDSetDataRate(VideoDigitizerComponent ci, long bytesPerSecond)
  3874. ;
  3875.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3876.         Macro
  3877.         _VDSetDataRate
  3878.             move.l              #$00040054,-(sp)
  3879.             moveq               #0,D0
  3880.             dc.w                $A82A
  3881.         EndM
  3882.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3883.         IMPORT_CFM_FUNCTION VDSetDataRate
  3884.     ENDIF
  3885.  
  3886. ;
  3887. ; pascal VideoDigitizerError VDGetTimeCode(VideoDigitizerComponent ci, TimeRecord *atTime, void *timeCodeFormat, void *timeCodeTime)
  3888. ;
  3889.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3890.         Macro
  3891.         _VDGetTimeCode
  3892.             move.l              #$000C0055,-(sp)
  3893.             moveq               #0,D0
  3894.             dc.w                $A82A
  3895.         EndM
  3896.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3897.         IMPORT_CFM_FUNCTION VDGetTimeCode
  3898.     ENDIF
  3899.  
  3900. ;
  3901. ; pascal VideoDigitizerError VDUseSafeBuffers(VideoDigitizerComponent ci, Boolean useSafeBuffers)
  3902. ;
  3903.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3904.         Macro
  3905.         _VDUseSafeBuffers
  3906.             move.l              #$00020056,-(sp)
  3907.             moveq               #0,D0
  3908.             dc.w                $A82A
  3909.         EndM
  3910.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3911.         IMPORT_CFM_FUNCTION VDUseSafeBuffers
  3912.     ENDIF
  3913.  
  3914. ;
  3915. ; pascal VideoDigitizerError VDGetSoundInputSource(VideoDigitizerComponent ci, long videoInput, long *soundInput)
  3916. ;
  3917.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3918.         Macro
  3919.         _VDGetSoundInputSource
  3920.             move.l              #$00080057,-(sp)
  3921.             moveq               #0,D0
  3922.             dc.w                $A82A
  3923.         EndM
  3924.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3925.         IMPORT_CFM_FUNCTION VDGetSoundInputSource
  3926.     ENDIF
  3927.  
  3928. ;
  3929. ; pascal VideoDigitizerError VDGetCompressionTime(VideoDigitizerComponent ci, OSType compressionType, short depth, Rect *srcRect, CodecQ *spatialQuality, CodecQ *temporalQuality, unsigned long *compressTime)
  3930. ;
  3931.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3932.         Macro
  3933.         _VDGetCompressionTime
  3934.             move.l              #$00160058,-(sp)
  3935.             moveq               #0,D0
  3936.             dc.w                $A82A
  3937.         EndM
  3938.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3939.         IMPORT_CFM_FUNCTION VDGetCompressionTime
  3940.     ENDIF
  3941.  
  3942. ;
  3943. ; pascal VideoDigitizerError VDSetPreferredPacketSize(VideoDigitizerComponent ci, long preferredPacketSizeInBytes)
  3944. ;
  3945.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3946.         Macro
  3947.         _VDSetPreferredPacketSize
  3948.             move.l              #$00040059,-(sp)
  3949.             moveq               #0,D0
  3950.             dc.w                $A82A
  3951.         EndM
  3952.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3953.         IMPORT_CFM_FUNCTION VDSetPreferredPacketSize
  3954.     ENDIF
  3955.  
  3956. ;
  3957. ; pascal VideoDigitizerError VDSetPreferredImageDimensions(VideoDigitizerComponent ci, long width, long height)
  3958. ;
  3959.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3960.         Macro
  3961.         _VDSetPreferredImageDimensions
  3962.             move.l              #$0008005A,-(sp)
  3963.             moveq               #0,D0
  3964.             dc.w                $A82A
  3965.         EndM
  3966.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3967.         IMPORT_CFM_FUNCTION VDSetPreferredImageDimensions
  3968.     ENDIF
  3969.  
  3970. ;
  3971. ; pascal VideoDigitizerError VDGetPreferredImageDimensions(VideoDigitizerComponent ci, long *width, long *height)
  3972. ;
  3973.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3974.         Macro
  3975.         _VDGetPreferredImageDimensions
  3976.             move.l              #$0008005B,-(sp)
  3977.             moveq               #0,D0
  3978.             dc.w                $A82A
  3979.         EndM
  3980.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3981.         IMPORT_CFM_FUNCTION VDGetPreferredImageDimensions
  3982.     ENDIF
  3983.  
  3984. ;
  3985. ; pascal VideoDigitizerError VDGetInputName(VideoDigitizerComponent ci, long videoInput, Str255 name)
  3986. ;
  3987.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3988.         Macro
  3989.         _VDGetInputName
  3990.             move.l              #$0008005C,-(sp)
  3991.             moveq               #0,D0
  3992.             dc.w                $A82A
  3993.         EndM
  3994.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3995.         IMPORT_CFM_FUNCTION VDGetInputName
  3996.     ENDIF
  3997.  
  3998.  
  3999.  
  4000. ;    General Sequence Grab stuff
  4001. ;
  4002.  
  4003. ; typedef ComponentInstance             SeqGrabComponent
  4004.  
  4005. ; typedef ComponentInstance             SGChannel
  4006.  
  4007.  
  4008. SeqGrabComponentType            EQU        'barg'
  4009. SeqGrabChannelType                EQU        'sgch'
  4010. SeqGrabPanelType                EQU        'sgpn'
  4011. SeqGrabCompressionPanelType        EQU        'cmpr'
  4012. SeqGrabSourcePanelType            EQU        'sour'
  4013.  
  4014. seqGrabToDisk                    EQU        1
  4015. seqGrabToMemory                    EQU        2
  4016. seqGrabDontUseTempMemory        EQU        4
  4017. seqGrabAppendToFile                EQU        8
  4018. seqGrabDontAddMovieResource        EQU        16
  4019. seqGrabDontMakeMovie            EQU        32
  4020. seqGrabPreExtendFile            EQU        64
  4021. seqGrabDataProcIsInterruptSafe    EQU        128
  4022. seqGrabDataProcDoesOverlappingReads EQU    256
  4023. ; typedef unsigned long                 SeqGrabDataOutputEnum
  4024.  
  4025.  
  4026. seqGrabRecord                    EQU        1
  4027. seqGrabPreview                    EQU        2
  4028. seqGrabPlayDuringRecord            EQU        4
  4029. ; typedef unsigned long                 SeqGrabUsageEnum
  4030.  
  4031.  
  4032. seqGrabHasBounds                EQU        1
  4033. seqGrabHasVolume                EQU        2
  4034. seqGrabHasDiscreteSamples        EQU        4
  4035. ; typedef unsigned long                 SeqGrabChannelInfoEnum
  4036.  
  4037. SGOutputRecord            RECORD 0
  4038. data                     ds.l    1                ; offset: $0 (0) <-- really an array of length one
  4039. sizeof                     EQU *                    ; size:   $4 (4)
  4040.                         ENDR
  4041. ; typedef struct SGOutputRecord *        SGOutput
  4042.  
  4043. SeqGrabFrameInfo        RECORD 0
  4044. frameOffset                 ds.l    1                ; offset: $0 (0)
  4045. frameTime                 ds.l    1                ; offset: $4 (4)
  4046. frameSize                 ds.l    1                ; offset: $8 (8)
  4047. frameChannel             ds.l    1                ; offset: $C (12)
  4048. frameRefCon                 ds.l    1                ; offset: $10 (16)
  4049. sizeof                     EQU *                    ; size:   $14 (20)
  4050.                         ENDR
  4051. ; typedef struct SeqGrabFrameInfo *        SeqGrabFrameInfoPtr
  4052.  
  4053. SeqGrabExtendedFrameInfo RECORD 0
  4054. frameOffset                 ds        wide            ; offset: $0 (0)
  4055. frameTime                 ds.l    1                ; offset: $8 (8)
  4056. frameSize                 ds.l    1                ; offset: $C (12)
  4057. frameChannel             ds.l    1                ; offset: $10 (16)
  4058. frameRefCon                 ds.l    1                ; offset: $14 (20)
  4059. frameOutput                 ds.l    1                ; offset: $18 (24)
  4060. sizeof                     EQU *                    ; size:   $1C (28)
  4061.                         ENDR
  4062. ; typedef struct SeqGrabExtendedFrameInfo * SeqGrabExtendedFrameInfoPtr
  4063.  
  4064.  
  4065. grabPictOffScreen                EQU        1
  4066. grabPictIgnoreClip                EQU        2
  4067. grabPictCurrentImage            EQU        4
  4068.  
  4069. sgFlagControlledGrab            EQU        $01
  4070. SGDeviceName            RECORD 0
  4071. name                     ds        Str63            ; offset: $0 (0)
  4072. icon                     ds.l    1                ; offset: $40 (64)
  4073. flags                     ds.l    1                ; offset: $44 (68)
  4074. refCon                     ds.l    1                ; offset: $48 (72)
  4075. reserved                 ds.l    1                ; offset: $4C (76)        ;  zero
  4076. sizeof                     EQU *                    ; size:   $50 (80)
  4077.                         ENDR
  4078.  
  4079. sgDeviceNameFlagDeviceUnavailable EQU    $01
  4080. SGDeviceListRecord        RECORD 0
  4081. count                     ds.w    1                ; offset: $0 (0)
  4082. selectedIndex             ds.w    1                ; offset: $2 (2)
  4083. reserved                 ds.l    1                ; offset: $4 (4)        ;  zero
  4084. entry                     ds        SGDeviceName    ; offset: $8 (8) <-- really an array of length one
  4085. sizeof                     EQU *                    ; size:   $58 (88)
  4086.                         ENDR
  4087. ; typedef struct SGDeviceListRecord *    SGDeviceListPtr
  4088.  
  4089. ; typedef SGDeviceListPtr *                SGDeviceList
  4090.  
  4091.  
  4092. sgDeviceListWithIcons            EQU        $01
  4093. sgDeviceListDontCheckAvailability EQU    $02
  4094.  
  4095. seqGrabWriteAppend                EQU        0
  4096. seqGrabWriteReserve                EQU        1
  4097. seqGrabWriteFill                EQU        2
  4098.  
  4099. seqGrabUnpause                    EQU        0
  4100. seqGrabPause                    EQU        1
  4101. seqGrabPauseForMenu                EQU        3
  4102.  
  4103. channelFlagDontOpenResFile        EQU        2
  4104. channelFlagHasDependency        EQU        4
  4105.  
  4106. sgPanelFlagForPanel                EQU        1
  4107.  
  4108. seqGrabSettingsPreviewOnly        EQU        1
  4109.  
  4110. channelPlayNormal                EQU        0
  4111. channelPlayFast                    EQU        1
  4112. channelPlayHighQuality            EQU        2
  4113. channelPlayAllData                EQU        4
  4114.  
  4115. ;
  4116. ; pascal ComponentResult SGInitialize(SeqGrabComponent s)
  4117. ;
  4118.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4119.         Macro
  4120.         _SGInitialize
  4121.             move.l              #$00000001,-(sp)
  4122.             moveq               #0,D0
  4123.             dc.w                $A82A
  4124.         EndM
  4125.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4126.         IMPORT_CFM_FUNCTION SGInitialize
  4127.     ENDIF
  4128.  
  4129. ;
  4130. ; pascal ComponentResult SGSetDataOutput(SeqGrabComponent s, const FSSpec *movieFile, long whereFlags)
  4131. ;
  4132.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4133.         Macro
  4134.         _SGSetDataOutput
  4135.             move.l              #$00080002,-(sp)
  4136.             moveq               #0,D0
  4137.             dc.w                $A82A
  4138.         EndM
  4139.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4140.         IMPORT_CFM_FUNCTION SGSetDataOutput
  4141.     ENDIF
  4142.  
  4143. ;
  4144. ; pascal ComponentResult SGGetDataOutput(SeqGrabComponent s, FSSpec *movieFile, long *whereFlags)
  4145. ;
  4146.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4147.         Macro
  4148.         _SGGetDataOutput
  4149.             move.l              #$00080003,-(sp)
  4150.             moveq               #0,D0
  4151.             dc.w                $A82A
  4152.         EndM
  4153.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4154.         IMPORT_CFM_FUNCTION SGGetDataOutput
  4155.     ENDIF
  4156.  
  4157. ;
  4158. ; pascal ComponentResult SGSetGWorld(SeqGrabComponent s, CGrafPtr gp, GDHandle gd)
  4159. ;
  4160.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4161.         Macro
  4162.         _SGSetGWorld
  4163.             move.l              #$00080004,-(sp)
  4164.             moveq               #0,D0
  4165.             dc.w                $A82A
  4166.         EndM
  4167.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4168.         IMPORT_CFM_FUNCTION SGSetGWorld
  4169.     ENDIF
  4170.  
  4171. ;
  4172. ; pascal ComponentResult SGGetGWorld(SeqGrabComponent s, CGrafPtr *gp, GDHandle *gd)
  4173. ;
  4174.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4175.         Macro
  4176.         _SGGetGWorld
  4177.             move.l              #$00080005,-(sp)
  4178.             moveq               #0,D0
  4179.             dc.w                $A82A
  4180.         EndM
  4181.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4182.         IMPORT_CFM_FUNCTION SGGetGWorld
  4183.     ENDIF
  4184.  
  4185. ;
  4186. ; pascal ComponentResult SGNewChannel(SeqGrabComponent s, OSType channelType, SGChannel *ref)
  4187. ;
  4188.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4189.         Macro
  4190.         _SGNewChannel
  4191.             move.l              #$00080006,-(sp)
  4192.             moveq               #0,D0
  4193.             dc.w                $A82A
  4194.         EndM
  4195.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4196.         IMPORT_CFM_FUNCTION SGNewChannel
  4197.     ENDIF
  4198.  
  4199. ;
  4200. ; pascal ComponentResult SGDisposeChannel(SeqGrabComponent s, SGChannel c)
  4201. ;
  4202.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4203.         Macro
  4204.         _SGDisposeChannel
  4205.             move.l              #$00040007,-(sp)
  4206.             moveq               #0,D0
  4207.             dc.w                $A82A
  4208.         EndM
  4209.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4210.         IMPORT_CFM_FUNCTION SGDisposeChannel
  4211.     ENDIF
  4212.  
  4213. ;
  4214. ; pascal ComponentResult SGStartPreview(SeqGrabComponent s)
  4215. ;
  4216.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4217.         Macro
  4218.         _SGStartPreview
  4219.             move.l              #$00000010,-(sp)
  4220.             moveq               #0,D0
  4221.             dc.w                $A82A
  4222.         EndM
  4223.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4224.         IMPORT_CFM_FUNCTION SGStartPreview
  4225.     ENDIF
  4226.  
  4227. ;
  4228. ; pascal ComponentResult SGStartRecord(SeqGrabComponent s)
  4229. ;
  4230.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4231.         Macro
  4232.         _SGStartRecord
  4233.             move.l              #$00000011,-(sp)
  4234.             moveq               #0,D0
  4235.             dc.w                $A82A
  4236.         EndM
  4237.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4238.         IMPORT_CFM_FUNCTION SGStartRecord
  4239.     ENDIF
  4240.  
  4241. ;
  4242. ; pascal ComponentResult SGIdle(SeqGrabComponent s)
  4243. ;
  4244.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4245.         Macro
  4246.         _SGIdle
  4247.             move.l              #$00000012,-(sp)
  4248.             moveq               #0,D0
  4249.             dc.w                $A82A
  4250.         EndM
  4251.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4252.         IMPORT_CFM_FUNCTION SGIdle
  4253.     ENDIF
  4254.  
  4255. ;
  4256. ; pascal ComponentResult SGStop(SeqGrabComponent s)
  4257. ;
  4258.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4259.         Macro
  4260.         _SGStop
  4261.             move.l              #$00000013,-(sp)
  4262.             moveq               #0,D0
  4263.             dc.w                $A82A
  4264.         EndM
  4265.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4266.         IMPORT_CFM_FUNCTION SGStop
  4267.     ENDIF
  4268.  
  4269. ;
  4270. ; pascal ComponentResult SGPause(SeqGrabComponent s, Byte pause)
  4271. ;
  4272.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4273.         Macro
  4274.         _SGPause
  4275.             move.l              #$00020014,-(sp)
  4276.             moveq               #0,D0
  4277.             dc.w                $A82A
  4278.         EndM
  4279.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4280.         IMPORT_CFM_FUNCTION SGPause
  4281.     ENDIF
  4282.  
  4283. ;
  4284. ; pascal ComponentResult SGPrepare(SeqGrabComponent s, Boolean prepareForPreview, Boolean prepareForRecord)
  4285. ;
  4286.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4287.         Macro
  4288.         _SGPrepare
  4289.             move.l              #$00040015,-(sp)
  4290.             moveq               #0,D0
  4291.             dc.w                $A82A
  4292.         EndM
  4293.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4294.         IMPORT_CFM_FUNCTION SGPrepare
  4295.     ENDIF
  4296.  
  4297. ;
  4298. ; pascal ComponentResult SGRelease(SeqGrabComponent s)
  4299. ;
  4300.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4301.         Macro
  4302.         _SGRelease
  4303.             move.l              #$00000016,-(sp)
  4304.             moveq               #0,D0
  4305.             dc.w                $A82A
  4306.         EndM
  4307.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4308.         IMPORT_CFM_FUNCTION SGRelease
  4309.     ENDIF
  4310.  
  4311. ;
  4312. ; pascal Movie SGGetMovie(SeqGrabComponent s)
  4313. ;
  4314.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4315.         Macro
  4316.         _SGGetMovie
  4317.             move.l              #$00000017,-(sp)
  4318.             moveq               #0,D0
  4319.             dc.w                $A82A
  4320.         EndM
  4321.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4322.         IMPORT_CFM_FUNCTION SGGetMovie
  4323.     ENDIF
  4324.  
  4325. ;
  4326. ; pascal ComponentResult SGSetMaximumRecordTime(SeqGrabComponent s, unsigned long ticks)
  4327. ;
  4328.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4329.         Macro
  4330.         _SGSetMaximumRecordTime
  4331.             move.l              #$00040018,-(sp)
  4332.             moveq               #0,D0
  4333.             dc.w                $A82A
  4334.         EndM
  4335.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4336.         IMPORT_CFM_FUNCTION SGSetMaximumRecordTime
  4337.     ENDIF
  4338.  
  4339. ;
  4340. ; pascal ComponentResult SGGetMaximumRecordTime(SeqGrabComponent s, unsigned long *ticks)
  4341. ;
  4342.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4343.         Macro
  4344.         _SGGetMaximumRecordTime
  4345.             move.l              #$00040019,-(sp)
  4346.             moveq               #0,D0
  4347.             dc.w                $A82A
  4348.         EndM
  4349.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4350.         IMPORT_CFM_FUNCTION SGGetMaximumRecordTime
  4351.     ENDIF
  4352.  
  4353. ;
  4354. ; pascal ComponentResult SGGetStorageSpaceRemaining(SeqGrabComponent s, unsigned long *bytes)
  4355. ;
  4356.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4357.         Macro
  4358.         _SGGetStorageSpaceRemaining
  4359.             move.l              #$0004001A,-(sp)
  4360.             moveq               #0,D0
  4361.             dc.w                $A82A
  4362.         EndM
  4363.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4364.         IMPORT_CFM_FUNCTION SGGetStorageSpaceRemaining
  4365.     ENDIF
  4366.  
  4367. ;
  4368. ; pascal ComponentResult SGGetTimeRemaining(SeqGrabComponent s, long *ticksLeft)
  4369. ;
  4370.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4371.         Macro
  4372.         _SGGetTimeRemaining
  4373.             move.l              #$0004001B,-(sp)
  4374.             moveq               #0,D0
  4375.             dc.w                $A82A
  4376.         EndM
  4377.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4378.         IMPORT_CFM_FUNCTION SGGetTimeRemaining
  4379.     ENDIF
  4380.  
  4381. ;
  4382. ; pascal ComponentResult SGGrabPict(SeqGrabComponent s, PicHandle *p, const Rect *bounds, short offscreenDepth, long grabPictFlags)
  4383. ;
  4384.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4385.         Macro
  4386.         _SGGrabPict
  4387.             move.l              #$000E001C,-(sp)
  4388.             moveq               #0,D0
  4389.             dc.w                $A82A
  4390.         EndM
  4391.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4392.         IMPORT_CFM_FUNCTION SGGrabPict
  4393.     ENDIF
  4394.  
  4395. ;
  4396. ; pascal ComponentResult SGGetLastMovieResID(SeqGrabComponent s, short *resID)
  4397. ;
  4398.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4399.         Macro
  4400.         _SGGetLastMovieResID
  4401.             move.l              #$0004001D,-(sp)
  4402.             moveq               #0,D0
  4403.             dc.w                $A82A
  4404.         EndM
  4405.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4406.         IMPORT_CFM_FUNCTION SGGetLastMovieResID
  4407.     ENDIF
  4408.  
  4409. ;
  4410. ; pascal ComponentResult SGSetFlags(SeqGrabComponent s, long sgFlags)
  4411. ;
  4412.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4413.         Macro
  4414.         _SGSetFlags
  4415.             move.l              #$0004001E,-(sp)
  4416.             moveq               #0,D0
  4417.             dc.w                $A82A
  4418.         EndM
  4419.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4420.         IMPORT_CFM_FUNCTION SGSetFlags
  4421.     ENDIF
  4422.  
  4423. ;
  4424. ; pascal ComponentResult SGGetFlags(SeqGrabComponent s, long *sgFlags)
  4425. ;
  4426.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4427.         Macro
  4428.         _SGGetFlags
  4429.             move.l              #$0004001F,-(sp)
  4430.             moveq               #0,D0
  4431.             dc.w                $A82A
  4432.         EndM
  4433.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4434.         IMPORT_CFM_FUNCTION SGGetFlags
  4435.     ENDIF
  4436.  
  4437. ;
  4438. ; pascal ComponentResult SGSetDataProc(SeqGrabComponent s, SGDataUPP proc, long refCon)
  4439. ;
  4440.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4441.         Macro
  4442.         _SGSetDataProc
  4443.             move.l              #$00080020,-(sp)
  4444.             moveq               #0,D0
  4445.             dc.w                $A82A
  4446.         EndM
  4447.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4448.         IMPORT_CFM_FUNCTION SGSetDataProc
  4449.     ENDIF
  4450.  
  4451. ;
  4452. ; pascal ComponentResult SGNewChannelFromComponent(SeqGrabComponent s, SGChannel *newChannel, Component sgChannelComponent)
  4453. ;
  4454.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4455.         Macro
  4456.         _SGNewChannelFromComponent
  4457.             move.l              #$00080021,-(sp)
  4458.             moveq               #0,D0
  4459.             dc.w                $A82A
  4460.         EndM
  4461.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4462.         IMPORT_CFM_FUNCTION SGNewChannelFromComponent
  4463.     ENDIF
  4464.  
  4465. ;
  4466. ; pascal ComponentResult SGDisposeDeviceList(SeqGrabComponent s, SGDeviceList list)
  4467. ;
  4468.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4469.         Macro
  4470.         _SGDisposeDeviceList
  4471.             move.l              #$00040022,-(sp)
  4472.             moveq               #0,D0
  4473.             dc.w                $A82A
  4474.         EndM
  4475.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4476.         IMPORT_CFM_FUNCTION SGDisposeDeviceList
  4477.     ENDIF
  4478.  
  4479. ;
  4480. ; pascal ComponentResult SGAppendDeviceListToMenu(SeqGrabComponent s, SGDeviceList list, MenuHandle mh)
  4481. ;
  4482.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4483.         Macro
  4484.         _SGAppendDeviceListToMenu
  4485.             move.l              #$00080023,-(sp)
  4486.             moveq               #0,D0
  4487.             dc.w                $A82A
  4488.         EndM
  4489.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4490.         IMPORT_CFM_FUNCTION SGAppendDeviceListToMenu
  4491.     ENDIF
  4492.  
  4493. ;
  4494. ; pascal ComponentResult SGSetSettings(SeqGrabComponent s, UserData ud, long flags)
  4495. ;
  4496.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4497.         Macro
  4498.         _SGSetSettings
  4499.             move.l              #$00080024,-(sp)
  4500.             moveq               #0,D0
  4501.             dc.w                $A82A
  4502.         EndM
  4503.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4504.         IMPORT_CFM_FUNCTION SGSetSettings
  4505.     ENDIF
  4506.  
  4507. ;
  4508. ; pascal ComponentResult SGGetSettings(SeqGrabComponent s, UserData *ud, long flags)
  4509. ;
  4510.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4511.         Macro
  4512.         _SGGetSettings
  4513.             move.l              #$00080025,-(sp)
  4514.             moveq               #0,D0
  4515.             dc.w                $A82A
  4516.         EndM
  4517.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4518.         IMPORT_CFM_FUNCTION SGGetSettings
  4519.     ENDIF
  4520.  
  4521. ;
  4522. ; pascal ComponentResult SGGetIndChannel(SeqGrabComponent s, short index, SGChannel *ref, OSType *chanType)
  4523. ;
  4524.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4525.         Macro
  4526.         _SGGetIndChannel
  4527.             move.l              #$000A0026,-(sp)
  4528.             moveq               #0,D0
  4529.             dc.w                $A82A
  4530.         EndM
  4531.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4532.         IMPORT_CFM_FUNCTION SGGetIndChannel
  4533.     ENDIF
  4534.  
  4535. ;
  4536. ; pascal ComponentResult SGUpdate(SeqGrabComponent s, RgnHandle updateRgn)
  4537. ;
  4538.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4539.         Macro
  4540.         _SGUpdate
  4541.             move.l              #$00040027,-(sp)
  4542.             moveq               #0,D0
  4543.             dc.w                $A82A
  4544.         EndM
  4545.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4546.         IMPORT_CFM_FUNCTION SGUpdate
  4547.     ENDIF
  4548.  
  4549. ;
  4550. ; pascal ComponentResult SGGetPause(SeqGrabComponent s, Byte *paused)
  4551. ;
  4552.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4553.         Macro
  4554.         _SGGetPause
  4555.             move.l              #$00040028,-(sp)
  4556.             moveq               #0,D0
  4557.             dc.w                $A82A
  4558.         EndM
  4559.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4560.         IMPORT_CFM_FUNCTION SGGetPause
  4561.     ENDIF
  4562.  
  4563. ; typedef const Component *                ConstComponentListPtr
  4564.  
  4565. ;
  4566. ; pascal ComponentResult SGSettingsDialog(SeqGrabComponent s, SGChannel c, short numPanels, ConstComponentListPtr panelList, long flags, SGModalFilterUPP proc, long procRefNum)
  4567. ;
  4568.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4569.         Macro
  4570.         _SGSettingsDialog
  4571.             move.l              #$00160029,-(sp)
  4572.             moveq               #0,D0
  4573.             dc.w                $A82A
  4574.         EndM
  4575.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4576.         IMPORT_CFM_FUNCTION SGSettingsDialog
  4577.     ENDIF
  4578.  
  4579. ;
  4580. ; pascal ComponentResult SGGetAlignmentProc(SeqGrabComponent s, ICMAlignmentProcRecordPtr alignmentProc)
  4581. ;
  4582.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4583.         Macro
  4584.         _SGGetAlignmentProc
  4585.             move.l              #$0004002A,-(sp)
  4586.             moveq               #0,D0
  4587.             dc.w                $A82A
  4588.         EndM
  4589.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4590.         IMPORT_CFM_FUNCTION SGGetAlignmentProc
  4591.     ENDIF
  4592.  
  4593. ;
  4594. ; pascal ComponentResult SGSetChannelSettings(SeqGrabComponent s, SGChannel c, UserData ud, long flags)
  4595. ;
  4596.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4597.         Macro
  4598.         _SGSetChannelSettings
  4599.             move.l              #$000C002B,-(sp)
  4600.             moveq               #0,D0
  4601.             dc.w                $A82A
  4602.         EndM
  4603.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4604.         IMPORT_CFM_FUNCTION SGSetChannelSettings
  4605.     ENDIF
  4606.  
  4607. ;
  4608. ; pascal ComponentResult SGGetChannelSettings(SeqGrabComponent s, SGChannel c, UserData *ud, long flags)
  4609. ;
  4610.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4611.         Macro
  4612.         _SGGetChannelSettings
  4613.             move.l              #$000C002C,-(sp)
  4614.             moveq               #0,D0
  4615.             dc.w                $A82A
  4616.         EndM
  4617.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4618.         IMPORT_CFM_FUNCTION SGGetChannelSettings
  4619.     ENDIF
  4620.  
  4621. ;
  4622. ; pascal ComponentResult SGGetMode(SeqGrabComponent s, Boolean *previewMode, Boolean *recordMode)
  4623. ;
  4624.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4625.         Macro
  4626.         _SGGetMode
  4627.             move.l              #$0008002D,-(sp)
  4628.             moveq               #0,D0
  4629.             dc.w                $A82A
  4630.         EndM
  4631.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4632.         IMPORT_CFM_FUNCTION SGGetMode
  4633.     ENDIF
  4634.  
  4635. ;
  4636. ; pascal ComponentResult SGSetDataRef(SeqGrabComponent s, Handle dataRef, OSType dataRefType, long whereFlags)
  4637. ;
  4638.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4639.         Macro
  4640.         _SGSetDataRef
  4641.             move.l              #$000C002E,-(sp)
  4642.             moveq               #0,D0
  4643.             dc.w                $A82A
  4644.         EndM
  4645.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4646.         IMPORT_CFM_FUNCTION SGSetDataRef
  4647.     ENDIF
  4648.  
  4649. ;
  4650. ; pascal ComponentResult SGGetDataRef(SeqGrabComponent s, Handle *dataRef, OSType *dataRefType, long *whereFlags)
  4651. ;
  4652.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4653.         Macro
  4654.         _SGGetDataRef
  4655.             move.l              #$000C002F,-(sp)
  4656.             moveq               #0,D0
  4657.             dc.w                $A82A
  4658.         EndM
  4659.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4660.         IMPORT_CFM_FUNCTION SGGetDataRef
  4661.     ENDIF
  4662.  
  4663. ;
  4664. ; pascal ComponentResult SGNewOutput(SeqGrabComponent s, Handle dataRef, OSType dataRefType, long whereFlags, SGOutput *sgOut)
  4665. ;
  4666.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4667.         Macro
  4668.         _SGNewOutput
  4669.             move.l              #$00100030,-(sp)
  4670.             moveq               #0,D0
  4671.             dc.w                $A82A
  4672.         EndM
  4673.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4674.         IMPORT_CFM_FUNCTION SGNewOutput
  4675.     ENDIF
  4676.  
  4677. ;
  4678. ; pascal ComponentResult SGDisposeOutput(SeqGrabComponent s, SGOutput sgOut)
  4679. ;
  4680.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4681.         Macro
  4682.         _SGDisposeOutput
  4683.             move.l              #$00040031,-(sp)
  4684.             moveq               #0,D0
  4685.             dc.w                $A82A
  4686.         EndM
  4687.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4688.         IMPORT_CFM_FUNCTION SGDisposeOutput
  4689.     ENDIF
  4690.  
  4691. ;
  4692. ; pascal ComponentResult SGSetOutputFlags(SeqGrabComponent s, SGOutput sgOut, long whereFlags)
  4693. ;
  4694.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4695.         Macro
  4696.         _SGSetOutputFlags
  4697.             move.l              #$00080032,-(sp)
  4698.             moveq               #0,D0
  4699.             dc.w                $A82A
  4700.         EndM
  4701.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4702.         IMPORT_CFM_FUNCTION SGSetOutputFlags
  4703.     ENDIF
  4704.  
  4705. ;
  4706. ; pascal ComponentResult SGSetChannelOutput(SeqGrabComponent s, SGChannel c, SGOutput sgOut)
  4707. ;
  4708.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4709.         Macro
  4710.         _SGSetChannelOutput
  4711.             move.l              #$00080033,-(sp)
  4712.             moveq               #0,D0
  4713.             dc.w                $A82A
  4714.         EndM
  4715.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4716.         IMPORT_CFM_FUNCTION SGSetChannelOutput
  4717.     ENDIF
  4718.  
  4719. ;
  4720. ; pascal ComponentResult SGGetDataOutputStorageSpaceRemaining(SeqGrabComponent s, SGOutput sgOut, unsigned long *space)
  4721. ;
  4722.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4723.         Macro
  4724.         _SGGetDataOutputStorageSpaceRemaining
  4725.             move.l              #$00080034,-(sp)
  4726.             moveq               #0,D0
  4727.             dc.w                $A82A
  4728.         EndM
  4729.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4730.         IMPORT_CFM_FUNCTION SGGetDataOutputStorageSpaceRemaining
  4731.     ENDIF
  4732.  
  4733. ;
  4734. ; pascal ComponentResult SGHandleUpdateEvent(SeqGrabComponent s, const EventRecord *event, Boolean *handled)
  4735. ;
  4736.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4737.         Macro
  4738.         _SGHandleUpdateEvent
  4739.             move.l              #$00080035,-(sp)
  4740.             moveq               #0,D0
  4741.             dc.w                $A82A
  4742.         EndM
  4743.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4744.         IMPORT_CFM_FUNCTION SGHandleUpdateEvent
  4745.     ENDIF
  4746.  
  4747. ;
  4748. ; pascal ComponentResult SGSetOutputNextOutput(SeqGrabComponent s, SGOutput sgOut, SGOutput nextOut)
  4749. ;
  4750.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4751.         Macro
  4752.         _SGSetOutputNextOutput
  4753.             move.l              #$00080036,-(sp)
  4754.             moveq               #0,D0
  4755.             dc.w                $A82A
  4756.         EndM
  4757.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4758.         IMPORT_CFM_FUNCTION SGSetOutputNextOutput
  4759.     ENDIF
  4760.  
  4761. ;
  4762. ; pascal ComponentResult SGGetOutputNextOutput(SeqGrabComponent s, SGOutput sgOut, SGOutput *nextOut)
  4763. ;
  4764.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4765.         Macro
  4766.         _SGGetOutputNextOutput
  4767.             move.l              #$00080037,-(sp)
  4768.             moveq               #0,D0
  4769.             dc.w                $A82A
  4770.         EndM
  4771.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4772.         IMPORT_CFM_FUNCTION SGGetOutputNextOutput
  4773.     ENDIF
  4774.  
  4775. ;
  4776. ; pascal ComponentResult SGSetOutputMaximumOffset(SeqGrabComponent s, SGOutput sgOut, const wide *maxOffset)
  4777. ;
  4778.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4779.         Macro
  4780.         _SGSetOutputMaximumOffset
  4781.             move.l              #$00080038,-(sp)
  4782.             moveq               #0,D0
  4783.             dc.w                $A82A
  4784.         EndM
  4785.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4786.         IMPORT_CFM_FUNCTION SGSetOutputMaximumOffset
  4787.     ENDIF
  4788.  
  4789. ;
  4790. ; pascal ComponentResult SGGetOutputMaximumOffset(SeqGrabComponent s, SGOutput sgOut, wide *maxOffset)
  4791. ;
  4792.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4793.         Macro
  4794.         _SGGetOutputMaximumOffset
  4795.             move.l              #$00080039,-(sp)
  4796.             moveq               #0,D0
  4797.             dc.w                $A82A
  4798.         EndM
  4799.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4800.         IMPORT_CFM_FUNCTION SGGetOutputMaximumOffset
  4801.     ENDIF
  4802.  
  4803. ;
  4804. ; pascal ComponentResult SGGetOutputDataReference(SeqGrabComponent s, SGOutput sgOut, Handle *dataRef, OSType *dataRefType)
  4805. ;
  4806.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4807.         Macro
  4808.         _SGGetOutputDataReference
  4809.             move.l              #$000C003A,-(sp)
  4810.             moveq               #0,D0
  4811.             dc.w                $A82A
  4812.         EndM
  4813.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4814.         IMPORT_CFM_FUNCTION SGGetOutputDataReference
  4815.     ENDIF
  4816.  
  4817. ;
  4818. ; pascal ComponentResult SGWriteExtendedMovieData(SeqGrabComponent s, SGChannel c, Ptr p, long len, wide *offset, SGOutput *sgOut)
  4819. ;
  4820.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4821.         Macro
  4822.         _SGWriteExtendedMovieData
  4823.             move.l              #$0014003B,-(sp)
  4824.             moveq               #0,D0
  4825.             dc.w                $A82A
  4826.         EndM
  4827.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4828.         IMPORT_CFM_FUNCTION SGWriteExtendedMovieData
  4829.     ENDIF
  4830.  
  4831. ;    calls from Channel to seqGrab
  4832. ;
  4833.  
  4834. ;
  4835. ; pascal ComponentResult SGWriteMovieData(SeqGrabComponent s, SGChannel c, Ptr p, long len, long *offset)
  4836. ;
  4837.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4838.         Macro
  4839.         _SGWriteMovieData
  4840.             move.l              #$00100100,-(sp)
  4841.             moveq               #0,D0
  4842.             dc.w                $A82A
  4843.         EndM
  4844.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4845.         IMPORT_CFM_FUNCTION SGWriteMovieData
  4846.     ENDIF
  4847.  
  4848. ;
  4849. ; pascal ComponentResult SGAddFrameReference(SeqGrabComponent s, SeqGrabFrameInfoPtr frameInfo)
  4850. ;
  4851.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4852.         Macro
  4853.         _SGAddFrameReference
  4854.             move.l              #$00040101,-(sp)
  4855.             moveq               #0,D0
  4856.             dc.w                $A82A
  4857.         EndM
  4858.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4859.         IMPORT_CFM_FUNCTION SGAddFrameReference
  4860.     ENDIF
  4861.  
  4862. ;
  4863. ; pascal ComponentResult SGGetNextFrameReference(SeqGrabComponent s, SeqGrabFrameInfoPtr frameInfo, TimeValue *frameDuration, long *frameNumber)
  4864. ;
  4865.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4866.         Macro
  4867.         _SGGetNextFrameReference
  4868.             move.l              #$000C0102,-(sp)
  4869.             moveq               #0,D0
  4870.             dc.w                $A82A
  4871.         EndM
  4872.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4873.         IMPORT_CFM_FUNCTION SGGetNextFrameReference
  4874.     ENDIF
  4875.  
  4876. ;
  4877. ; pascal ComponentResult SGGetTimeBase(SeqGrabComponent s, TimeBase *tb)
  4878. ;
  4879.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4880.         Macro
  4881.         _SGGetTimeBase
  4882.             move.l              #$00040103,-(sp)
  4883.             moveq               #0,D0
  4884.             dc.w                $A82A
  4885.         EndM
  4886.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4887.         IMPORT_CFM_FUNCTION SGGetTimeBase
  4888.     ENDIF
  4889.  
  4890. ;
  4891. ; pascal ComponentResult SGSortDeviceList(SeqGrabComponent s, SGDeviceList list)
  4892. ;
  4893.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4894.         Macro
  4895.         _SGSortDeviceList
  4896.             move.l              #$00040104,-(sp)
  4897.             moveq               #0,D0
  4898.             dc.w                $A82A
  4899.         EndM
  4900.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4901.         IMPORT_CFM_FUNCTION SGSortDeviceList
  4902.     ENDIF
  4903.  
  4904. ;
  4905. ; pascal ComponentResult SGAddMovieData(SeqGrabComponent s, SGChannel c, Ptr p, long len, long *offset, long chRefCon, TimeValue time, short writeType)
  4906. ;
  4907.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4908.         Macro
  4909.         _SGAddMovieData
  4910.             move.l              #$001A0105,-(sp)
  4911.             moveq               #0,D0
  4912.             dc.w                $A82A
  4913.         EndM
  4914.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4915.         IMPORT_CFM_FUNCTION SGAddMovieData
  4916.     ENDIF
  4917.  
  4918. ;
  4919. ; pascal ComponentResult SGChangedSource(SeqGrabComponent s, SGChannel c)
  4920. ;
  4921.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4922.         Macro
  4923.         _SGChangedSource
  4924.             move.l              #$00040106,-(sp)
  4925.             moveq               #0,D0
  4926.             dc.w                $A82A
  4927.         EndM
  4928.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4929.         IMPORT_CFM_FUNCTION SGChangedSource
  4930.     ENDIF
  4931.  
  4932. ;
  4933. ; pascal ComponentResult SGAddExtendedFrameReference(SeqGrabComponent s, SeqGrabExtendedFrameInfoPtr frameInfo)
  4934. ;
  4935.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4936.         Macro
  4937.         _SGAddExtendedFrameReference
  4938.             move.l              #$00040107,-(sp)
  4939.             moveq               #0,D0
  4940.             dc.w                $A82A
  4941.         EndM
  4942.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4943.         IMPORT_CFM_FUNCTION SGAddExtendedFrameReference
  4944.     ENDIF
  4945.  
  4946. ;
  4947. ; pascal ComponentResult SGGetNextExtendedFrameReference(SeqGrabComponent s, SeqGrabExtendedFrameInfoPtr frameInfo, TimeValue *frameDuration, long *frameNumber)
  4948. ;
  4949.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4950.         Macro
  4951.         _SGGetNextExtendedFrameReference
  4952.             move.l              #$000C0108,-(sp)
  4953.             moveq               #0,D0
  4954.             dc.w                $A82A
  4955.         EndM
  4956.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4957.         IMPORT_CFM_FUNCTION SGGetNextExtendedFrameReference
  4958.     ENDIF
  4959.  
  4960. ;
  4961. ; pascal ComponentResult SGAddExtendedMovieData(SeqGrabComponent s, SGChannel c, Ptr p, long len, wide *offset, long chRefCon, TimeValue time, short writeType, SGOutput *whichOutput)
  4962. ;
  4963.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4964.         Macro
  4965.         _SGAddExtendedMovieData
  4966.             move.l              #$001E0109,-(sp)
  4967.             moveq               #0,D0
  4968.             dc.w                $A82A
  4969.         EndM
  4970.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4971.         IMPORT_CFM_FUNCTION SGAddExtendedMovieData
  4972.     ENDIF
  4973.  
  4974. ;
  4975. ; pascal ComponentResult SGAddOutputDataRefToMedia(SeqGrabComponent s, SGOutput sgOut, Media theMedia, SampleDescriptionHandle desc)
  4976. ;
  4977.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4978.         Macro
  4979.         _SGAddOutputDataRefToMedia
  4980.             move.l              #$000C010A,-(sp)
  4981.             moveq               #0,D0
  4982.             dc.w                $A82A
  4983.         EndM
  4984.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4985.         IMPORT_CFM_FUNCTION SGAddOutputDataRefToMedia
  4986.     ENDIF
  4987.  
  4988.  
  4989.  
  4990. ; ** Sequence Grab CHANNEL Component Stuff **
  4991.  
  4992. ;
  4993. ; pascal ComponentResult SGSetChannelUsage(SGChannel c, long usage)
  4994. ;
  4995.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4996.         Macro
  4997.         _SGSetChannelUsage
  4998.             move.l              #$00040080,-(sp)
  4999.             moveq               #0,D0
  5000.             dc.w                $A82A
  5001.         EndM
  5002.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5003.         IMPORT_CFM_FUNCTION SGSetChannelUsage
  5004.     ENDIF
  5005.  
  5006. ;
  5007. ; pascal ComponentResult SGGetChannelUsage(SGChannel c, long *usage)
  5008. ;
  5009.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5010.         Macro
  5011.         _SGGetChannelUsage
  5012.             move.l              #$00040081,-(sp)
  5013.             moveq               #0,D0
  5014.             dc.w                $A82A
  5015.         EndM
  5016.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5017.         IMPORT_CFM_FUNCTION SGGetChannelUsage
  5018.     ENDIF
  5019.  
  5020. ;
  5021. ; pascal ComponentResult SGSetChannelBounds(SGChannel c, const Rect *bounds)
  5022. ;
  5023.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5024.         Macro
  5025.         _SGSetChannelBounds
  5026.             move.l              #$00040082,-(sp)
  5027.             moveq               #0,D0
  5028.             dc.w                $A82A
  5029.         EndM
  5030.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5031.         IMPORT_CFM_FUNCTION SGSetChannelBounds
  5032.     ENDIF
  5033.  
  5034. ;
  5035. ; pascal ComponentResult SGGetChannelBounds(SGChannel c, Rect *bounds)
  5036. ;
  5037.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5038.         Macro
  5039.         _SGGetChannelBounds
  5040.             move.l              #$00040083,-(sp)
  5041.             moveq               #0,D0
  5042.             dc.w                $A82A
  5043.         EndM
  5044.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5045.         IMPORT_CFM_FUNCTION SGGetChannelBounds
  5046.     ENDIF
  5047.  
  5048. ;
  5049. ; pascal ComponentResult SGSetChannelVolume(SGChannel c, short volume)
  5050. ;
  5051.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5052.         Macro
  5053.         _SGSetChannelVolume
  5054.             move.l              #$00020084,-(sp)
  5055.             moveq               #0,D0
  5056.             dc.w                $A82A
  5057.         EndM
  5058.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5059.         IMPORT_CFM_FUNCTION SGSetChannelVolume
  5060.     ENDIF
  5061.  
  5062. ;
  5063. ; pascal ComponentResult SGGetChannelVolume(SGChannel c, short *volume)
  5064. ;
  5065.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5066.         Macro
  5067.         _SGGetChannelVolume
  5068.             move.l              #$00040085,-(sp)
  5069.             moveq               #0,D0
  5070.             dc.w                $A82A
  5071.         EndM
  5072.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5073.         IMPORT_CFM_FUNCTION SGGetChannelVolume
  5074.     ENDIF
  5075.  
  5076. ;
  5077. ; pascal ComponentResult SGGetChannelInfo(SGChannel c, long *channelInfo)
  5078. ;
  5079.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5080.         Macro
  5081.         _SGGetChannelInfo
  5082.             move.l              #$00040086,-(sp)
  5083.             moveq               #0,D0
  5084.             dc.w                $A82A
  5085.         EndM
  5086.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5087.         IMPORT_CFM_FUNCTION SGGetChannelInfo
  5088.     ENDIF
  5089.  
  5090. ;
  5091. ; pascal ComponentResult SGSetChannelPlayFlags(SGChannel c, long playFlags)
  5092. ;
  5093.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5094.         Macro
  5095.         _SGSetChannelPlayFlags
  5096.             move.l              #$00040087,-(sp)
  5097.             moveq               #0,D0
  5098.             dc.w                $A82A
  5099.         EndM
  5100.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5101.         IMPORT_CFM_FUNCTION SGSetChannelPlayFlags
  5102.     ENDIF
  5103.  
  5104. ;
  5105. ; pascal ComponentResult SGGetChannelPlayFlags(SGChannel c, long *playFlags)
  5106. ;
  5107.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5108.         Macro
  5109.         _SGGetChannelPlayFlags
  5110.             move.l              #$00040088,-(sp)
  5111.             moveq               #0,D0
  5112.             dc.w                $A82A
  5113.         EndM
  5114.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5115.         IMPORT_CFM_FUNCTION SGGetChannelPlayFlags
  5116.     ENDIF
  5117.  
  5118. ;
  5119. ; pascal ComponentResult SGSetChannelMaxFrames(SGChannel c, long frameCount)
  5120. ;
  5121.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5122.         Macro
  5123.         _SGSetChannelMaxFrames
  5124.             move.l              #$00040089,-(sp)
  5125.             moveq               #0,D0
  5126.             dc.w                $A82A
  5127.         EndM
  5128.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5129.         IMPORT_CFM_FUNCTION SGSetChannelMaxFrames
  5130.     ENDIF
  5131.  
  5132. ;
  5133. ; pascal ComponentResult SGGetChannelMaxFrames(SGChannel c, long *frameCount)
  5134. ;
  5135.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5136.         Macro
  5137.         _SGGetChannelMaxFrames
  5138.             move.l              #$0004008A,-(sp)
  5139.             moveq               #0,D0
  5140.             dc.w                $A82A
  5141.         EndM
  5142.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5143.         IMPORT_CFM_FUNCTION SGGetChannelMaxFrames
  5144.     ENDIF
  5145.  
  5146. ;
  5147. ; pascal ComponentResult SGSetChannelRefCon(SGChannel c, long refCon)
  5148. ;
  5149.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5150.         Macro
  5151.         _SGSetChannelRefCon
  5152.             move.l              #$0004008B,-(sp)
  5153.             moveq               #0,D0
  5154.             dc.w                $A82A
  5155.         EndM
  5156.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5157.         IMPORT_CFM_FUNCTION SGSetChannelRefCon
  5158.     ENDIF
  5159.  
  5160. ;
  5161. ; pascal ComponentResult SGSetChannelClip(SGChannel c, RgnHandle theClip)
  5162. ;
  5163.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5164.         Macro
  5165.         _SGSetChannelClip
  5166.             move.l              #$0004008C,-(sp)
  5167.             moveq               #0,D0
  5168.             dc.w                $A82A
  5169.         EndM
  5170.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5171.         IMPORT_CFM_FUNCTION SGSetChannelClip
  5172.     ENDIF
  5173.  
  5174. ;
  5175. ; pascal ComponentResult SGGetChannelClip(SGChannel c, RgnHandle *theClip)
  5176. ;
  5177.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5178.         Macro
  5179.         _SGGetChannelClip
  5180.             move.l              #$0004008D,-(sp)
  5181.             moveq               #0,D0
  5182.             dc.w                $A82A
  5183.         EndM
  5184.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5185.         IMPORT_CFM_FUNCTION SGGetChannelClip
  5186.     ENDIF
  5187.  
  5188. ;
  5189. ; pascal ComponentResult SGGetChannelSampleDescription(SGChannel c, Handle sampleDesc)
  5190. ;
  5191.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5192.         Macro
  5193.         _SGGetChannelSampleDescription
  5194.             move.l              #$0004008E,-(sp)
  5195.             moveq               #0,D0
  5196.             dc.w                $A82A
  5197.         EndM
  5198.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5199.         IMPORT_CFM_FUNCTION SGGetChannelSampleDescription
  5200.     ENDIF
  5201.  
  5202. ;
  5203. ; pascal ComponentResult SGGetChannelDeviceList(SGChannel c, long selectionFlags, SGDeviceList *list)
  5204. ;
  5205.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5206.         Macro
  5207.         _SGGetChannelDeviceList
  5208.             move.l              #$0008008F,-(sp)
  5209.             moveq               #0,D0
  5210.             dc.w                $A82A
  5211.         EndM
  5212.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5213.         IMPORT_CFM_FUNCTION SGGetChannelDeviceList
  5214.     ENDIF
  5215.  
  5216. ;
  5217. ; pascal ComponentResult SGSetChannelDevice(SGChannel c, StringPtr name)
  5218. ;
  5219.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5220.         Macro
  5221.         _SGSetChannelDevice
  5222.             move.l              #$00040090,-(sp)
  5223.             moveq               #0,D0
  5224.             dc.w                $A82A
  5225.         EndM
  5226.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5227.         IMPORT_CFM_FUNCTION SGSetChannelDevice
  5228.     ENDIF
  5229.  
  5230. ;
  5231. ; pascal ComponentResult SGSetChannelMatrix(SGChannel c, const MatrixRecord *m)
  5232. ;
  5233.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5234.         Macro
  5235.         _SGSetChannelMatrix
  5236.             move.l              #$00040091,-(sp)
  5237.             moveq               #0,D0
  5238.             dc.w                $A82A
  5239.         EndM
  5240.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5241.         IMPORT_CFM_FUNCTION SGSetChannelMatrix
  5242.     ENDIF
  5243.  
  5244. ;
  5245. ; pascal ComponentResult SGGetChannelMatrix(SGChannel c, MatrixRecord *m)
  5246. ;
  5247.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5248.         Macro
  5249.         _SGGetChannelMatrix
  5250.             move.l              #$00040092,-(sp)
  5251.             moveq               #0,D0
  5252.             dc.w                $A82A
  5253.         EndM
  5254.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5255.         IMPORT_CFM_FUNCTION SGGetChannelMatrix
  5256.     ENDIF
  5257.  
  5258. ;
  5259. ; pascal ComponentResult SGGetChannelTimeScale(SGChannel c, TimeScale *scale)
  5260. ;
  5261.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5262.         Macro
  5263.         _SGGetChannelTimeScale
  5264.             move.l              #$00040093,-(sp)
  5265.             moveq               #0,D0
  5266.             dc.w                $A82A
  5267.         EndM
  5268.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5269.         IMPORT_CFM_FUNCTION SGGetChannelTimeScale
  5270.     ENDIF
  5271.  
  5272. ;
  5273. ; pascal ComponentResult SGChannelPutPicture(SGChannel c)
  5274. ;
  5275.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5276.         Macro
  5277.         _SGChannelPutPicture
  5278.             move.l              #$00000094,-(sp)
  5279.             moveq               #0,D0
  5280.             dc.w                $A82A
  5281.         EndM
  5282.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5283.         IMPORT_CFM_FUNCTION SGChannelPutPicture
  5284.     ENDIF
  5285.  
  5286. ;
  5287. ; pascal ComponentResult SGChannelSetRequestedDataRate(SGChannel c, long bytesPerSecond)
  5288. ;
  5289.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5290.         Macro
  5291.         _SGChannelSetRequestedDataRate
  5292.             move.l              #$00040095,-(sp)
  5293.             moveq               #0,D0
  5294.             dc.w                $A82A
  5295.         EndM
  5296.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5297.         IMPORT_CFM_FUNCTION SGChannelSetRequestedDataRate
  5298.     ENDIF
  5299.  
  5300. ;
  5301. ; pascal ComponentResult SGChannelGetRequestedDataRate(SGChannel c, long *bytesPerSecond)
  5302. ;
  5303.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5304.         Macro
  5305.         _SGChannelGetRequestedDataRate
  5306.             move.l              #$00040096,-(sp)
  5307.             moveq               #0,D0
  5308.             dc.w                $A82A
  5309.         EndM
  5310.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5311.         IMPORT_CFM_FUNCTION SGChannelGetRequestedDataRate
  5312.     ENDIF
  5313.  
  5314. ;
  5315. ; pascal ComponentResult SGChannelSetDataSourceName(SGChannel c, ConstStr255Param name, ScriptCode scriptTag)
  5316. ;
  5317.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5318.         Macro
  5319.         _SGChannelSetDataSourceName
  5320.             move.l              #$00060097,-(sp)
  5321.             moveq               #0,D0
  5322.             dc.w                $A82A
  5323.         EndM
  5324.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5325.         IMPORT_CFM_FUNCTION SGChannelSetDataSourceName
  5326.     ENDIF
  5327.  
  5328. ;
  5329. ; pascal ComponentResult SGChannelGetDataSourceName(SGChannel c, Str255 name, ScriptCode *scriptTag)
  5330. ;
  5331.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5332.         Macro
  5333.         _SGChannelGetDataSourceName
  5334.             move.l              #$00080098,-(sp)
  5335.             moveq               #0,D0
  5336.             dc.w                $A82A
  5337.         EndM
  5338.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5339.         IMPORT_CFM_FUNCTION SGChannelGetDataSourceName
  5340.     ENDIF
  5341.  
  5342. ;    calls from seqGrab to Channel
  5343. ;
  5344.  
  5345. ;
  5346. ; pascal ComponentResult SGInitChannel(SGChannel c, SeqGrabComponent owner)
  5347. ;
  5348.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5349.         Macro
  5350.         _SGInitChannel
  5351.             move.l              #$00040180,-(sp)
  5352.             moveq               #0,D0
  5353.             dc.w                $A82A
  5354.         EndM
  5355.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5356.         IMPORT_CFM_FUNCTION SGInitChannel
  5357.     ENDIF
  5358.  
  5359. ;
  5360. ; pascal ComponentResult SGWriteSamples(SGChannel c, Movie m, AliasHandle theFile)
  5361. ;
  5362.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5363.         Macro
  5364.         _SGWriteSamples
  5365.             move.l              #$00080181,-(sp)
  5366.             moveq               #0,D0
  5367.             dc.w                $A82A
  5368.         EndM
  5369.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5370.         IMPORT_CFM_FUNCTION SGWriteSamples
  5371.     ENDIF
  5372.  
  5373. ;
  5374. ; pascal ComponentResult SGGetDataRate(SGChannel c, long *bytesPerSecond)
  5375. ;
  5376.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5377.         Macro
  5378.         _SGGetDataRate
  5379.             move.l              #$00040182,-(sp)
  5380.             moveq               #0,D0
  5381.             dc.w                $A82A
  5382.         EndM
  5383.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5384.         IMPORT_CFM_FUNCTION SGGetDataRate
  5385.     ENDIF
  5386.  
  5387. ;
  5388. ; pascal ComponentResult SGAlignChannelRect(SGChannel c, Rect *r)
  5389. ;
  5390.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5391.         Macro
  5392.         _SGAlignChannelRect
  5393.             move.l              #$00040183,-(sp)
  5394.             moveq               #0,D0
  5395.             dc.w                $A82A
  5396.         EndM
  5397.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5398.         IMPORT_CFM_FUNCTION SGAlignChannelRect
  5399.     ENDIF
  5400.  
  5401. ;    Dorky dialog panel calls
  5402. ;
  5403.  
  5404. ;
  5405. ; pascal ComponentResult SGPanelGetDitl(SeqGrabComponent s, Handle *ditl)
  5406. ;
  5407.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5408.         Macro
  5409.         _SGPanelGetDitl
  5410.             move.l              #$00040200,-(sp)
  5411.             moveq               #0,D0
  5412.             dc.w                $A82A
  5413.         EndM
  5414.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5415.         IMPORT_CFM_FUNCTION SGPanelGetDitl
  5416.     ENDIF
  5417.  
  5418. ;
  5419. ; pascal ComponentResult SGPanelGetTitle(SeqGrabComponent s, Str255 title)
  5420. ;
  5421.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5422.         Macro
  5423.         _SGPanelGetTitle
  5424.             move.l              #$00040201,-(sp)
  5425.             moveq               #0,D0
  5426.             dc.w                $A82A
  5427.         EndM
  5428.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5429.         IMPORT_CFM_FUNCTION SGPanelGetTitle
  5430.     ENDIF
  5431.  
  5432. ;
  5433. ; pascal ComponentResult SGPanelCanRun(SeqGrabComponent s, SGChannel c)
  5434. ;
  5435.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5436.         Macro
  5437.         _SGPanelCanRun
  5438.             move.l              #$00040202,-(sp)
  5439.             moveq               #0,D0
  5440.             dc.w                $A82A
  5441.         EndM
  5442.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5443.         IMPORT_CFM_FUNCTION SGPanelCanRun
  5444.     ENDIF
  5445.  
  5446. ;
  5447. ; pascal ComponentResult SGPanelInstall(SeqGrabComponent s, SGChannel c, DialogPtr d, short itemOffset)
  5448. ;
  5449.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5450.         Macro
  5451.         _SGPanelInstall
  5452.             move.l              #$000A0203,-(sp)
  5453.             moveq               #0,D0
  5454.             dc.w                $A82A
  5455.         EndM
  5456.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5457.         IMPORT_CFM_FUNCTION SGPanelInstall
  5458.     ENDIF
  5459.  
  5460. ;
  5461. ; pascal ComponentResult SGPanelEvent(SeqGrabComponent s, SGChannel c, DialogPtr d, short itemOffset, const EventRecord *theEvent, short *itemHit, Boolean *handled)
  5462. ;
  5463.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5464.         Macro
  5465.         _SGPanelEvent
  5466.             move.l              #$00160204,-(sp)
  5467.             moveq               #0,D0
  5468.             dc.w                $A82A
  5469.         EndM
  5470.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5471.         IMPORT_CFM_FUNCTION SGPanelEvent
  5472.     ENDIF
  5473.  
  5474. ;
  5475. ; pascal ComponentResult SGPanelItem(SeqGrabComponent s, SGChannel c, DialogPtr d, short itemOffset, short itemNum)
  5476. ;
  5477.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5478.         Macro
  5479.         _SGPanelItem
  5480.             move.l              #$000C0205,-(sp)
  5481.             moveq               #0,D0
  5482.             dc.w                $A82A
  5483.         EndM
  5484.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5485.         IMPORT_CFM_FUNCTION SGPanelItem
  5486.     ENDIF
  5487.  
  5488. ;
  5489. ; pascal ComponentResult SGPanelRemove(SeqGrabComponent s, SGChannel c, DialogPtr d, short itemOffset)
  5490. ;
  5491.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5492.         Macro
  5493.         _SGPanelRemove
  5494.             move.l              #$000A0206,-(sp)
  5495.             moveq               #0,D0
  5496.             dc.w                $A82A
  5497.         EndM
  5498.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5499.         IMPORT_CFM_FUNCTION SGPanelRemove
  5500.     ENDIF
  5501.  
  5502. ;
  5503. ; pascal ComponentResult SGPanelSetGrabber(SeqGrabComponent s, SeqGrabComponent sg)
  5504. ;
  5505.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5506.         Macro
  5507.         _SGPanelSetGrabber
  5508.             move.l              #$00040207,-(sp)
  5509.             moveq               #0,D0
  5510.             dc.w                $A82A
  5511.         EndM
  5512.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5513.         IMPORT_CFM_FUNCTION SGPanelSetGrabber
  5514.     ENDIF
  5515.  
  5516. ;
  5517. ; pascal ComponentResult SGPanelSetResFile(SeqGrabComponent s, short resRef)
  5518. ;
  5519.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5520.         Macro
  5521.         _SGPanelSetResFile
  5522.             move.l              #$00020208,-(sp)
  5523.             moveq               #0,D0
  5524.             dc.w                $A82A
  5525.         EndM
  5526.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5527.         IMPORT_CFM_FUNCTION SGPanelSetResFile
  5528.     ENDIF
  5529.  
  5530. ;
  5531. ; pascal ComponentResult SGPanelGetSettings(SeqGrabComponent s, SGChannel c, UserData *ud, long flags)
  5532. ;
  5533.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5534.         Macro
  5535.         _SGPanelGetSettings
  5536.             move.l              #$000C0209,-(sp)
  5537.             moveq               #0,D0
  5538.             dc.w                $A82A
  5539.         EndM
  5540.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5541.         IMPORT_CFM_FUNCTION SGPanelGetSettings
  5542.     ENDIF
  5543.  
  5544. ;
  5545. ; pascal ComponentResult SGPanelSetSettings(SeqGrabComponent s, SGChannel c, UserData ud, long flags)
  5546. ;
  5547.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5548.         Macro
  5549.         _SGPanelSetSettings
  5550.             move.l              #$000C020A,-(sp)
  5551.             moveq               #0,D0
  5552.             dc.w                $A82A
  5553.         EndM
  5554.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5555.         IMPORT_CFM_FUNCTION SGPanelSetSettings
  5556.     ENDIF
  5557.  
  5558. ;
  5559. ; pascal ComponentResult SGPanelValidateInput(SeqGrabComponent s, Boolean *ok)
  5560. ;
  5561.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5562.         Macro
  5563.         _SGPanelValidateInput
  5564.             move.l              #$0004020B,-(sp)
  5565.             moveq               #0,D0
  5566.             dc.w                $A82A
  5567.         EndM
  5568.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5569.         IMPORT_CFM_FUNCTION SGPanelValidateInput
  5570.     ENDIF
  5571.  
  5572. ;
  5573. ; pascal ComponentResult SGPanelSetEventFilter(SeqGrabComponent s, SGModalFilterUPP proc, long refCon)
  5574. ;
  5575.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5576.         Macro
  5577.         _SGPanelSetEventFilter
  5578.             move.l              #$0008020C,-(sp)
  5579.             moveq               #0,D0
  5580.             dc.w                $A82A
  5581.         EndM
  5582.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5583.         IMPORT_CFM_FUNCTION SGPanelSetEventFilter
  5584.     ENDIF
  5585.  
  5586.  
  5587. ; ** Sequence Grab VIDEO CHANNEL Component Stuff **
  5588. ;    Video stuff
  5589. ;
  5590.  
  5591. SGCompressInfo            RECORD 0
  5592. buffer                     ds.l    1                ; offset: $0 (0)
  5593. bufferSize                 ds.l    1                ; offset: $4 (4)
  5594. similarity                 ds.b    1                ; offset: $8 (8)
  5595. reserved                 ds.b    1                ; offset: $9 (9)
  5596. sizeof                     EQU *                    ; size:   $A (10)
  5597.                         ENDR
  5598. VideoBottles            RECORD 0
  5599. procCount                 ds.w    1                ; offset: $0 (0)
  5600. grabProc                 ds.l    1                ; offset: $2 (2)
  5601. grabCompleteProc         ds.l    1                ; offset: $6 (6)
  5602. displayProc                 ds.l    1                ; offset: $A (10)
  5603. compressProc             ds.l    1                ; offset: $E (14)
  5604. compressCompleteProc     ds.l    1                ; offset: $12 (18)
  5605. addFrameProc             ds.l    1                ; offset: $16 (22)
  5606. transferFrameProc         ds.l    1                ; offset: $1A (26)
  5607. grabCompressCompleteProc  ds.l    1                ; offset: $1E (30)
  5608. displayCompressProc         ds.l    1                ; offset: $22 (34)
  5609. sizeof                     EQU *                    ; size:   $26 (38)
  5610.                         ENDR
  5611. ;
  5612. ; pascal ComponentResult SGGetSrcVideoBounds(SGChannel c, Rect *r)
  5613. ;
  5614.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5615.         Macro
  5616.         _SGGetSrcVideoBounds
  5617.             move.l              #$00040100,-(sp)
  5618.             moveq               #0,D0
  5619.             dc.w                $A82A
  5620.         EndM
  5621.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5622.         IMPORT_CFM_FUNCTION SGGetSrcVideoBounds
  5623.     ENDIF
  5624.  
  5625. ;
  5626. ; pascal ComponentResult SGSetVideoRect(SGChannel c, const Rect *r)
  5627. ;
  5628.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5629.         Macro
  5630.         _SGSetVideoRect
  5631.             move.l              #$00040101,-(sp)
  5632.             moveq               #0,D0
  5633.             dc.w                $A82A
  5634.         EndM
  5635.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5636.         IMPORT_CFM_FUNCTION SGSetVideoRect
  5637.     ENDIF
  5638.  
  5639. ;
  5640. ; pascal ComponentResult SGGetVideoRect(SGChannel c, Rect *r)
  5641. ;
  5642.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5643.         Macro
  5644.         _SGGetVideoRect
  5645.             move.l              #$00040102,-(sp)
  5646.             moveq               #0,D0
  5647.             dc.w                $A82A
  5648.         EndM
  5649.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5650.         IMPORT_CFM_FUNCTION SGGetVideoRect
  5651.     ENDIF
  5652.  
  5653. ;
  5654. ; pascal ComponentResult SGGetVideoCompressorType(SGChannel c, OSType *compressorType)
  5655. ;
  5656.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5657.         Macro
  5658.         _SGGetVideoCompressorType
  5659.             move.l              #$00040103,-(sp)
  5660.             moveq               #0,D0
  5661.             dc.w                $A82A
  5662.         EndM
  5663.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5664.         IMPORT_CFM_FUNCTION SGGetVideoCompressorType
  5665.     ENDIF
  5666.  
  5667. ;
  5668. ; pascal ComponentResult SGSetVideoCompressorType(SGChannel c, OSType compressorType)
  5669. ;
  5670.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5671.         Macro
  5672.         _SGSetVideoCompressorType
  5673.             move.l              #$00040104,-(sp)
  5674.             moveq               #0,D0
  5675.             dc.w                $A82A
  5676.         EndM
  5677.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5678.         IMPORT_CFM_FUNCTION SGSetVideoCompressorType
  5679.     ENDIF
  5680.  
  5681. ;
  5682. ; pascal ComponentResult SGSetVideoCompressor(SGChannel c, short depth, CompressorComponent compressor, CodecQ spatialQuality, CodecQ temporalQuality, long keyFrameRate)
  5683. ;
  5684.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5685.         Macro
  5686.         _SGSetVideoCompressor
  5687.             move.l              #$00120105,-(sp)
  5688.             moveq               #0,D0
  5689.             dc.w                $A82A
  5690.         EndM
  5691.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5692.         IMPORT_CFM_FUNCTION SGSetVideoCompressor
  5693.     ENDIF
  5694.  
  5695. ;
  5696. ; pascal ComponentResult SGGetVideoCompressor(SGChannel c, short *depth, CompressorComponent *compressor, CodecQ *spatialQuality, CodecQ *temporalQuality, long *keyFrameRate)
  5697. ;
  5698.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5699.         Macro
  5700.         _SGGetVideoCompressor
  5701.             move.l              #$00140106,-(sp)
  5702.             moveq               #0,D0
  5703.             dc.w                $A82A
  5704.         EndM
  5705.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5706.         IMPORT_CFM_FUNCTION SGGetVideoCompressor
  5707.     ENDIF
  5708.  
  5709. ;
  5710. ; pascal ComponentInstance SGGetVideoDigitizerComponent(SGChannel c)
  5711. ;
  5712.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5713.         Macro
  5714.         _SGGetVideoDigitizerComponent
  5715.             move.l              #$00000107,-(sp)
  5716.             moveq               #0,D0
  5717.             dc.w                $A82A
  5718.         EndM
  5719.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5720.         IMPORT_CFM_FUNCTION SGGetVideoDigitizerComponent
  5721.     ENDIF
  5722.  
  5723. ;
  5724. ; pascal ComponentResult SGSetVideoDigitizerComponent(SGChannel c, ComponentInstance vdig)
  5725. ;
  5726.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5727.         Macro
  5728.         _SGSetVideoDigitizerComponent
  5729.             move.l              #$00040108,-(sp)
  5730.             moveq               #0,D0
  5731.             dc.w                $A82A
  5732.         EndM
  5733.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5734.         IMPORT_CFM_FUNCTION SGSetVideoDigitizerComponent
  5735.     ENDIF
  5736.  
  5737. ;
  5738. ; pascal ComponentResult SGVideoDigitizerChanged(SGChannel c)
  5739. ;
  5740.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5741.         Macro
  5742.         _SGVideoDigitizerChanged
  5743.             move.l              #$00000109,-(sp)
  5744.             moveq               #0,D0
  5745.             dc.w                $A82A
  5746.         EndM
  5747.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5748.         IMPORT_CFM_FUNCTION SGVideoDigitizerChanged
  5749.     ENDIF
  5750.  
  5751. ;
  5752. ; pascal ComponentResult SGSetVideoBottlenecks(SGChannel c, VideoBottles *vb)
  5753. ;
  5754.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5755.         Macro
  5756.         _SGSetVideoBottlenecks
  5757.             move.l              #$0004010A,-(sp)
  5758.             moveq               #0,D0
  5759.             dc.w                $A82A
  5760.         EndM
  5761.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5762.         IMPORT_CFM_FUNCTION SGSetVideoBottlenecks
  5763.     ENDIF
  5764.  
  5765. ;
  5766. ; pascal ComponentResult SGGetVideoBottlenecks(SGChannel c, VideoBottles *vb)
  5767. ;
  5768.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5769.         Macro
  5770.         _SGGetVideoBottlenecks
  5771.             move.l              #$0004010B,-(sp)
  5772.             moveq               #0,D0
  5773.             dc.w                $A82A
  5774.         EndM
  5775.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5776.         IMPORT_CFM_FUNCTION SGGetVideoBottlenecks
  5777.     ENDIF
  5778.  
  5779. ;
  5780. ; pascal ComponentResult SGGrabFrame(SGChannel c, short bufferNum)
  5781. ;
  5782.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5783.         Macro
  5784.         _SGGrabFrame
  5785.             move.l              #$0002010C,-(sp)
  5786.             moveq               #0,D0
  5787.             dc.w                $A82A
  5788.         EndM
  5789.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5790.         IMPORT_CFM_FUNCTION SGGrabFrame
  5791.     ENDIF
  5792.  
  5793. ;
  5794. ; pascal ComponentResult SGGrabFrameComplete(SGChannel c, short bufferNum, Boolean *done)
  5795. ;
  5796.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5797.         Macro
  5798.         _SGGrabFrameComplete
  5799.             move.l              #$0006010D,-(sp)
  5800.             moveq               #0,D0
  5801.             dc.w                $A82A
  5802.         EndM
  5803.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5804.         IMPORT_CFM_FUNCTION SGGrabFrameComplete
  5805.     ENDIF
  5806.  
  5807. ;
  5808. ; pascal ComponentResult SGDisplayFrame(SGChannel c, short bufferNum, const MatrixRecord *mp, RgnHandle clipRgn)
  5809. ;
  5810.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5811.         Macro
  5812.         _SGDisplayFrame
  5813.             move.l              #$000A010E,-(sp)
  5814.             moveq               #0,D0
  5815.             dc.w                $A82A
  5816.         EndM
  5817.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5818.         IMPORT_CFM_FUNCTION SGDisplayFrame
  5819.     ENDIF
  5820.  
  5821. ;
  5822. ; pascal ComponentResult SGCompressFrame(SGChannel c, short bufferNum)
  5823. ;
  5824.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5825.         Macro
  5826.         _SGCompressFrame
  5827.             move.l              #$0002010F,-(sp)
  5828.             moveq               #0,D0
  5829.             dc.w                $A82A
  5830.         EndM
  5831.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5832.         IMPORT_CFM_FUNCTION SGCompressFrame
  5833.     ENDIF
  5834.  
  5835. ;
  5836. ; pascal ComponentResult SGCompressFrameComplete(SGChannel c, short bufferNum, Boolean *done, SGCompressInfo *ci)
  5837. ;
  5838.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5839.         Macro
  5840.         _SGCompressFrameComplete
  5841.             move.l              #$000A0110,-(sp)
  5842.             moveq               #0,D0
  5843.             dc.w                $A82A
  5844.         EndM
  5845.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5846.         IMPORT_CFM_FUNCTION SGCompressFrameComplete
  5847.     ENDIF
  5848.  
  5849. ;
  5850. ; pascal ComponentResult SGAddFrame(SGChannel c, short bufferNum, TimeValue atTime, TimeScale scale, const SGCompressInfo *ci)
  5851. ;
  5852.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5853.         Macro
  5854.         _SGAddFrame
  5855.             move.l              #$000E0111,-(sp)
  5856.             moveq               #0,D0
  5857.             dc.w                $A82A
  5858.         EndM
  5859.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5860.         IMPORT_CFM_FUNCTION SGAddFrame
  5861.     ENDIF
  5862.  
  5863. ;
  5864. ; pascal ComponentResult SGTransferFrameForCompress(SGChannel c, short bufferNum, const MatrixRecord *mp, RgnHandle clipRgn)
  5865. ;
  5866.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5867.         Macro
  5868.         _SGTransferFrameForCompress
  5869.             move.l              #$000A0112,-(sp)
  5870.             moveq               #0,D0
  5871.             dc.w                $A82A
  5872.         EndM
  5873.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5874.         IMPORT_CFM_FUNCTION SGTransferFrameForCompress
  5875.     ENDIF
  5876.  
  5877. ;
  5878. ; pascal ComponentResult SGSetCompressBuffer(SGChannel c, short depth, const Rect *compressSize)
  5879. ;
  5880.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5881.         Macro
  5882.         _SGSetCompressBuffer
  5883.             move.l              #$00060113,-(sp)
  5884.             moveq               #0,D0
  5885.             dc.w                $A82A
  5886.         EndM
  5887.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5888.         IMPORT_CFM_FUNCTION SGSetCompressBuffer
  5889.     ENDIF
  5890.  
  5891. ;
  5892. ; pascal ComponentResult SGGetCompressBuffer(SGChannel c, short *depth, Rect *compressSize)
  5893. ;
  5894.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5895.         Macro
  5896.         _SGGetCompressBuffer
  5897.             move.l              #$00080114,-(sp)
  5898.             moveq               #0,D0
  5899.             dc.w                $A82A
  5900.         EndM
  5901.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5902.         IMPORT_CFM_FUNCTION SGGetCompressBuffer
  5903.     ENDIF
  5904.  
  5905. ;
  5906. ; pascal ComponentResult SGGetBufferInfo(SGChannel c, short bufferNum, PixMapHandle *bufferPM, Rect *bufferRect, GWorldPtr *compressBuffer, Rect *compressBufferRect)
  5907. ;
  5908.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5909.         Macro
  5910.         _SGGetBufferInfo
  5911.             move.l              #$00120115,-(sp)
  5912.             moveq               #0,D0
  5913.             dc.w                $A82A
  5914.         EndM
  5915.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5916.         IMPORT_CFM_FUNCTION SGGetBufferInfo
  5917.     ENDIF
  5918.  
  5919. ;
  5920. ; pascal ComponentResult SGSetUseScreenBuffer(SGChannel c, Boolean useScreenBuffer)
  5921. ;
  5922.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5923.         Macro
  5924.         _SGSetUseScreenBuffer
  5925.             move.l              #$00020116,-(sp)
  5926.             moveq               #0,D0
  5927.             dc.w                $A82A
  5928.         EndM
  5929.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5930.         IMPORT_CFM_FUNCTION SGSetUseScreenBuffer
  5931.     ENDIF
  5932.  
  5933. ;
  5934. ; pascal ComponentResult SGGetUseScreenBuffer(SGChannel c, Boolean *useScreenBuffer)
  5935. ;
  5936.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5937.         Macro
  5938.         _SGGetUseScreenBuffer
  5939.             move.l              #$00040117,-(sp)
  5940.             moveq               #0,D0
  5941.             dc.w                $A82A
  5942.         EndM
  5943.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5944.         IMPORT_CFM_FUNCTION SGGetUseScreenBuffer
  5945.     ENDIF
  5946.  
  5947. ;
  5948. ; pascal ComponentResult SGGrabCompressComplete(SGChannel c, Boolean *done, SGCompressInfo *ci, TimeRecord *tr)
  5949. ;
  5950.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5951.         Macro
  5952.         _SGGrabCompressComplete
  5953.             move.l              #$000C0118,-(sp)
  5954.             moveq               #0,D0
  5955.             dc.w                $A82A
  5956.         EndM
  5957.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5958.         IMPORT_CFM_FUNCTION SGGrabCompressComplete
  5959.     ENDIF
  5960.  
  5961. ;
  5962. ; pascal ComponentResult SGDisplayCompress(SGChannel c, Ptr dataPtr, ImageDescriptionHandle desc, MatrixRecord *mp, RgnHandle clipRgn)
  5963. ;
  5964.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5965.         Macro
  5966.         _SGDisplayCompress
  5967.             move.l              #$00100119,-(sp)
  5968.             moveq               #0,D0
  5969.             dc.w                $A82A
  5970.         EndM
  5971.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5972.         IMPORT_CFM_FUNCTION SGDisplayCompress
  5973.     ENDIF
  5974.  
  5975. ;
  5976. ; pascal ComponentResult SGSetFrameRate(SGChannel c, Fixed frameRate)
  5977. ;
  5978.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5979.         Macro
  5980.         _SGSetFrameRate
  5981.             move.l              #$0004011A,-(sp)
  5982.             moveq               #0,D0
  5983.             dc.w                $A82A
  5984.         EndM
  5985.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5986.         IMPORT_CFM_FUNCTION SGSetFrameRate
  5987.     ENDIF
  5988.  
  5989. ;
  5990. ; pascal ComponentResult SGGetFrameRate(SGChannel c, Fixed *frameRate)
  5991. ;
  5992.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5993.         Macro
  5994.         _SGGetFrameRate
  5995.             move.l              #$0004011B,-(sp)
  5996.             moveq               #0,D0
  5997.             dc.w                $A82A
  5998.         EndM
  5999.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6000.         IMPORT_CFM_FUNCTION SGGetFrameRate
  6001.     ENDIF
  6002.  
  6003.  
  6004. ;
  6005. ; pascal ComponentResult SGSetPreferredPacketSize(SGChannel c, long preferredPacketSizeInBytes)
  6006. ;
  6007.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6008.         Macro
  6009.         _SGSetPreferredPacketSize
  6010.             move.l              #$00040121,-(sp)
  6011.             moveq               #0,D0
  6012.             dc.w                $A82A
  6013.         EndM
  6014.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6015.         IMPORT_CFM_FUNCTION SGSetPreferredPacketSize
  6016.     ENDIF
  6017.  
  6018. ;
  6019. ; pascal ComponentResult SGGetPreferredPacketSize(SGChannel c, long *preferredPacketSizeInBytes)
  6020. ;
  6021.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6022.         Macro
  6023.         _SGGetPreferredPacketSize
  6024.             move.l              #$00040122,-(sp)
  6025.             moveq               #0,D0
  6026.             dc.w                $A82A
  6027.         EndM
  6028.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6029.         IMPORT_CFM_FUNCTION SGGetPreferredPacketSize
  6030.     ENDIF
  6031.  
  6032. ;
  6033. ; pascal ComponentResult SGSetUserVideoCompressorList(SGChannel c, Handle compressorTypes)
  6034. ;
  6035.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6036.         Macro
  6037.         _SGSetUserVideoCompressorList
  6038.             move.l              #$00040123,-(sp)
  6039.             moveq               #0,D0
  6040.             dc.w                $A82A
  6041.         EndM
  6042.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6043.         IMPORT_CFM_FUNCTION SGSetUserVideoCompressorList
  6044.     ENDIF
  6045.  
  6046. ;
  6047. ; pascal ComponentResult SGGetUserVideoCompressorList(SGChannel c, Handle *compressorTypes)
  6048. ;
  6049.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6050.         Macro
  6051.         _SGGetUserVideoCompressorList
  6052.             move.l              #$00040124,-(sp)
  6053.             moveq               #0,D0
  6054.             dc.w                $A82A
  6055.         EndM
  6056.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6057.         IMPORT_CFM_FUNCTION SGGetUserVideoCompressorList
  6058.     ENDIF
  6059.  
  6060. ; ** Sequence Grab SOUND CHANNEL Component Stuff **
  6061.  
  6062. ;    Sound stuff
  6063. ;
  6064.  
  6065. ;
  6066. ; pascal ComponentResult SGSetSoundInputDriver(SGChannel c, ConstStr255Param driverName)
  6067. ;
  6068.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6069.         Macro
  6070.         _SGSetSoundInputDriver
  6071.             move.l              #$00040100,-(sp)
  6072.             moveq               #0,D0
  6073.             dc.w                $A82A
  6074.         EndM
  6075.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6076.         IMPORT_CFM_FUNCTION SGSetSoundInputDriver
  6077.     ENDIF
  6078.  
  6079. ;
  6080. ; pascal long SGGetSoundInputDriver(SGChannel c)
  6081. ;
  6082.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6083.         Macro
  6084.         _SGGetSoundInputDriver
  6085.             move.l              #$00000101,-(sp)
  6086.             moveq               #0,D0
  6087.             dc.w                $A82A
  6088.         EndM
  6089.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6090.         IMPORT_CFM_FUNCTION SGGetSoundInputDriver
  6091.     ENDIF
  6092.  
  6093. ;
  6094. ; pascal ComponentResult SGSoundInputDriverChanged(SGChannel c)
  6095. ;
  6096.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6097.         Macro
  6098.         _SGSoundInputDriverChanged
  6099.             move.l              #$00000102,-(sp)
  6100.             moveq               #0,D0
  6101.             dc.w                $A82A
  6102.         EndM
  6103.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6104.         IMPORT_CFM_FUNCTION SGSoundInputDriverChanged
  6105.     ENDIF
  6106.  
  6107. ;
  6108. ; pascal ComponentResult SGSetSoundRecordChunkSize(SGChannel c, long seconds)
  6109. ;
  6110.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6111.         Macro
  6112.         _SGSetSoundRecordChunkSize
  6113.             move.l              #$00040103,-(sp)
  6114.             moveq               #0,D0
  6115.             dc.w                $A82A
  6116.         EndM
  6117.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6118.         IMPORT_CFM_FUNCTION SGSetSoundRecordChunkSize
  6119.     ENDIF
  6120.  
  6121. ;
  6122. ; pascal long SGGetSoundRecordChunkSize(SGChannel c)
  6123. ;
  6124.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6125.         Macro
  6126.         _SGGetSoundRecordChunkSize
  6127.             move.l              #$00000104,-(sp)
  6128.             moveq               #0,D0
  6129.             dc.w                $A82A
  6130.         EndM
  6131.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6132.         IMPORT_CFM_FUNCTION SGGetSoundRecordChunkSize
  6133.     ENDIF
  6134.  
  6135. ;
  6136. ; pascal ComponentResult SGSetSoundInputRate(SGChannel c, Fixed rate)
  6137. ;
  6138.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6139.         Macro
  6140.         _SGSetSoundInputRate
  6141.             move.l              #$00040105,-(sp)
  6142.             moveq               #0,D0
  6143.             dc.w                $A82A
  6144.         EndM
  6145.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6146.         IMPORT_CFM_FUNCTION SGSetSoundInputRate
  6147.     ENDIF
  6148.  
  6149. ;
  6150. ; pascal Fixed SGGetSoundInputRate(SGChannel c)
  6151. ;
  6152.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6153.         Macro
  6154.         _SGGetSoundInputRate
  6155.             move.l              #$00000106,-(sp)
  6156.             moveq               #0,D0
  6157.             dc.w                $A82A
  6158.         EndM
  6159.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6160.         IMPORT_CFM_FUNCTION SGGetSoundInputRate
  6161.     ENDIF
  6162.  
  6163. ;
  6164. ; pascal ComponentResult SGSetSoundInputParameters(SGChannel c, short sampleSize, short numChannels, OSType compressionType)
  6165. ;
  6166.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6167.         Macro
  6168.         _SGSetSoundInputParameters
  6169.             move.l              #$00080107,-(sp)
  6170.             moveq               #0,D0
  6171.             dc.w                $A82A
  6172.         EndM
  6173.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6174.         IMPORT_CFM_FUNCTION SGSetSoundInputParameters
  6175.     ENDIF
  6176.  
  6177. ;
  6178. ; pascal ComponentResult SGGetSoundInputParameters(SGChannel c, short *sampleSize, short *numChannels, OSType *compressionType)
  6179. ;
  6180.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6181.         Macro
  6182.         _SGGetSoundInputParameters
  6183.             move.l              #$000C0108,-(sp)
  6184.             moveq               #0,D0
  6185.             dc.w                $A82A
  6186.         EndM
  6187.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6188.         IMPORT_CFM_FUNCTION SGGetSoundInputParameters
  6189.     ENDIF
  6190.  
  6191. ;
  6192. ; pascal ComponentResult SGSetAdditionalSoundRates(SGChannel c, Handle rates)
  6193. ;
  6194.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6195.         Macro
  6196.         _SGSetAdditionalSoundRates
  6197.             move.l              #$00040109,-(sp)
  6198.             moveq               #0,D0
  6199.             dc.w                $A82A
  6200.         EndM
  6201.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6202.         IMPORT_CFM_FUNCTION SGSetAdditionalSoundRates
  6203.     ENDIF
  6204.  
  6205. ;
  6206. ; pascal ComponentResult SGGetAdditionalSoundRates(SGChannel c, Handle *rates)
  6207. ;
  6208.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6209.         Macro
  6210.         _SGGetAdditionalSoundRates
  6211.             move.l              #$0004010A,-(sp)
  6212.             moveq               #0,D0
  6213.             dc.w                $A82A
  6214.         EndM
  6215.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6216.         IMPORT_CFM_FUNCTION SGGetAdditionalSoundRates
  6217.     ENDIF
  6218.  
  6219. ;    Text stuff
  6220. ;
  6221.  
  6222. ;
  6223. ; pascal ComponentResult SGSetFontName(SGChannel c, StringPtr pstr)
  6224. ;
  6225.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6226.         Macro
  6227.         _SGSetFontName
  6228.             move.l              #$00040100,-(sp)
  6229.             moveq               #0,D0
  6230.             dc.w                $A82A
  6231.         EndM
  6232.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6233.         IMPORT_CFM_FUNCTION SGSetFontName
  6234.     ENDIF
  6235.  
  6236. ;
  6237. ; pascal ComponentResult SGSetFontSize(SGChannel c, short fontSize)
  6238. ;
  6239.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6240.         Macro
  6241.         _SGSetFontSize
  6242.             move.l              #$00020101,-(sp)
  6243.             moveq               #0,D0
  6244.             dc.w                $A82A
  6245.         EndM
  6246.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6247.         IMPORT_CFM_FUNCTION SGSetFontSize
  6248.     ENDIF
  6249.  
  6250. ;
  6251. ; pascal ComponentResult SGSetTextForeColor(SGChannel c, RGBColor *theColor)
  6252. ;
  6253.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6254.         Macro
  6255.         _SGSetTextForeColor
  6256.             move.l              #$00040102,-(sp)
  6257.             moveq               #0,D0
  6258.             dc.w                $A82A
  6259.         EndM
  6260.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6261.         IMPORT_CFM_FUNCTION SGSetTextForeColor
  6262.     ENDIF
  6263.  
  6264. ;
  6265. ; pascal ComponentResult SGSetTextBackColor(SGChannel c, RGBColor *theColor)
  6266. ;
  6267.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6268.         Macro
  6269.         _SGSetTextBackColor
  6270.             move.l              #$00040103,-(sp)
  6271.             moveq               #0,D0
  6272.             dc.w                $A82A
  6273.         EndM
  6274.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6275.         IMPORT_CFM_FUNCTION SGSetTextBackColor
  6276.     ENDIF
  6277.  
  6278. ;
  6279. ; pascal ComponentResult SGSetJustification(SGChannel c, short just)
  6280. ;
  6281.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6282.         Macro
  6283.         _SGSetJustification
  6284.             move.l              #$00020104,-(sp)
  6285.             moveq               #0,D0
  6286.             dc.w                $A82A
  6287.         EndM
  6288.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6289.         IMPORT_CFM_FUNCTION SGSetJustification
  6290.     ENDIF
  6291.  
  6292. ;
  6293. ; pascal ComponentResult SGGetTextReturnToSpaceValue(SGChannel c, short *rettospace)
  6294. ;
  6295.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6296.         Macro
  6297.         _SGGetTextReturnToSpaceValue
  6298.             move.l              #$00040105,-(sp)
  6299.             moveq               #0,D0
  6300.             dc.w                $A82A
  6301.         EndM
  6302.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6303.         IMPORT_CFM_FUNCTION SGGetTextReturnToSpaceValue
  6304.     ENDIF
  6305.  
  6306. ;
  6307. ; pascal ComponentResult SGSetTextReturnToSpaceValue(SGChannel c, short rettospace)
  6308. ;
  6309.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6310.         Macro
  6311.         _SGSetTextReturnToSpaceValue
  6312.             move.l              #$00020106,-(sp)
  6313.             moveq               #0,D0
  6314.             dc.w                $A82A
  6315.         EndM
  6316.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6317.         IMPORT_CFM_FUNCTION SGSetTextReturnToSpaceValue
  6318.     ENDIF
  6319.  
  6320. ;    Music stuff
  6321. ;
  6322.  
  6323. ;
  6324. ; pascal ComponentResult SGGetInstrument(SGChannel c, ToneDescription *td)
  6325. ;
  6326.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6327.         Macro
  6328.         _SGGetInstrument
  6329.             move.l              #$00040100,-(sp)
  6330.             moveq               #0,D0
  6331.             dc.w                $A82A
  6332.         EndM
  6333.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6334.         IMPORT_CFM_FUNCTION SGGetInstrument
  6335.     ENDIF
  6336.  
  6337. ;
  6338. ; pascal ComponentResult SGSetInstrument(SGChannel c, ToneDescription *td)
  6339. ;
  6340.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6341.         Macro
  6342.         _SGSetInstrument
  6343.             move.l              #$00040101,-(sp)
  6344.             moveq               #0,D0
  6345.             dc.w                $A82A
  6346.         EndM
  6347.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6348.         IMPORT_CFM_FUNCTION SGSetInstrument
  6349.     ENDIF
  6350.  
  6351.  
  6352.  
  6353. sgChannelAtom                    EQU        'chan'
  6354. sgChannelSettingsAtom            EQU        'ctom'
  6355. sgChannelDescription            EQU        'cdsc'
  6356. sgChannelSettings                EQU        'cset'
  6357.  
  6358. sgDeviceNameType                EQU        'name'
  6359. sgUsageType                        EQU        'use '
  6360. sgPlayFlagsType                    EQU        'plyf'
  6361. sgClipType                        EQU        'clip'
  6362. sgMatrixType                    EQU        'mtrx'
  6363. sgVolumeType                    EQU        'volu'
  6364.  
  6365. sgPanelSettingsAtom                EQU        'ptom'
  6366. sgPanelDescription                EQU        'pdsc'
  6367. sgPanelSettings                    EQU        'pset'
  6368.  
  6369. sgcSoundCompressionType            EQU        'scmp'
  6370. sgcSoundSampleRateType            EQU        'srat'
  6371. sgcSoundChannelCountType        EQU        'schn'
  6372. sgcSoundSampleSizeType            EQU        'ssiz'
  6373. sgcSoundInputType                EQU        'sinp'
  6374. sgcSoundGainType                EQU        'gain'
  6375.  
  6376. sgcVideoHueType                    EQU        'hue '
  6377. sgcVideoSaturationType            EQU        'satr'
  6378. sgcVideoContrastType            EQU        'trst'
  6379. sgcVideoSharpnessType            EQU        'shrp'
  6380. sgcVideoBrigtnessType            EQU        'brit'
  6381. sgcVideoBlackLevelType            EQU        'blkl'
  6382. sgcVideoWhiteLevelType            EQU        'whtl'
  6383. sgcVideoInputType                EQU        'vinp'
  6384. sgcVideoFormatType                EQU        'vstd'
  6385. sgcVideoFilterType                EQU        'vflt'
  6386. sgcVideoRectType                EQU        'vrct'
  6387. sgcVideoDigitizerType            EQU        'vdig'
  6388.  
  6389.  
  6390.  
  6391. ; typedef ComponentInstance             QTVideoOutputComponent
  6392.  
  6393. ;  Component type and subtype enumerations
  6394.  
  6395. QTVideoOutputComponentType        EQU        'vout'
  6396. QTVideoOutputComponentBaseSubType EQU    'base'
  6397.  
  6398. ;  QTVideoOutput Component flags
  6399.  
  6400.  
  6401. kQTVideoOutputDontDisplayToUser    EQU        $00000001
  6402. ;  Display mode atom types
  6403.  
  6404.  
  6405. kQTVODisplayModeItem            EQU        'qdmi'
  6406. kQTVODimensions                    EQU        'dimn'                ; atom contains two longs - pixel count - width, height
  6407. kQTVOResolution                    EQU        'resl'                ; atom contains two Fixed - hRes, vRes in dpi
  6408. kQTVORefreshRate                EQU        'refr'                ; atom contains one Fixed - refresh rate in Hz
  6409. kQTVOPixelType                    EQU        'pixl'                ; atom contains one OSType - pixel format of mode
  6410. kQTVOName                        EQU        'name'                ; atom contains string (no length byte) - name of modefor display to user
  6411. kQTVODecompressors                EQU        'deco'                ; atom contains other atoms indicating supported decompressors
  6412.                                                             ; kQTVODecompressors sub-atoms
  6413. kQTVODecompressorType            EQU        'dety'                ; atom contains one OSType - decompressor type code
  6414. kQTVODecompressorContinuous        EQU        'cont'                ; atom contains one Boolean - true if this type is displayed continuously
  6415. kQTVODecompressorComponent        EQU        'cmpt'                ; atom contains one Component - component id of decompressor
  6416. ; * These are QTVideoOutput procedures *
  6417. ;
  6418. ; pascal ComponentResult QTVideoOutputGetDisplayModeList(QTVideoOutputComponent vo, QTAtomContainer *outputs)
  6419. ;
  6420.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6421.         Macro
  6422.         _QTVideoOutputGetDisplayModeList
  6423.             move.l              #$00040001,-(sp)
  6424.             moveq               #0,D0
  6425.             dc.w                $A82A
  6426.         EndM
  6427.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6428.         IMPORT_CFM_FUNCTION QTVideoOutputGetDisplayModeList
  6429.     ENDIF
  6430.  
  6431. ;
  6432. ; pascal ComponentResult QTVideoOutputGetCurrentClientName(QTVideoOutputComponent vo, Str255 str)
  6433. ;
  6434.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6435.         Macro
  6436.         _QTVideoOutputGetCurrentClientName
  6437.             move.l              #$00040002,-(sp)
  6438.             moveq               #0,D0
  6439.             dc.w                $A82A
  6440.         EndM
  6441.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6442.         IMPORT_CFM_FUNCTION QTVideoOutputGetCurrentClientName
  6443.     ENDIF
  6444.  
  6445. ;
  6446. ; pascal ComponentResult QTVideoOutputSetClientName(QTVideoOutputComponent vo, ConstStr255Param str)
  6447. ;
  6448.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6449.         Macro
  6450.         _QTVideoOutputSetClientName
  6451.             move.l              #$00040003,-(sp)
  6452.             moveq               #0,D0
  6453.             dc.w                $A82A
  6454.         EndM
  6455.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6456.         IMPORT_CFM_FUNCTION QTVideoOutputSetClientName
  6457.     ENDIF
  6458.  
  6459. ;
  6460. ; pascal ComponentResult QTVideoOutputGetClientName(QTVideoOutputComponent vo, Str255 str)
  6461. ;
  6462.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6463.         Macro
  6464.         _QTVideoOutputGetClientName
  6465.             move.l              #$00040004,-(sp)
  6466.             moveq               #0,D0
  6467.             dc.w                $A82A
  6468.         EndM
  6469.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6470.         IMPORT_CFM_FUNCTION QTVideoOutputGetClientName
  6471.     ENDIF
  6472.  
  6473. ;
  6474. ; pascal ComponentResult QTVideoOutputBegin(QTVideoOutputComponent vo)
  6475. ;
  6476.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6477.         Macro
  6478.         _QTVideoOutputBegin
  6479.             move.l              #$00000005,-(sp)
  6480.             moveq               #0,D0
  6481.             dc.w                $A82A
  6482.         EndM
  6483.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6484.         IMPORT_CFM_FUNCTION QTVideoOutputBegin
  6485.     ENDIF
  6486.  
  6487. ;
  6488. ; pascal ComponentResult QTVideoOutputEnd(QTVideoOutputComponent vo)
  6489. ;
  6490.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6491.         Macro
  6492.         _QTVideoOutputEnd
  6493.             move.l              #$00000006,-(sp)
  6494.             moveq               #0,D0
  6495.             dc.w                $A82A
  6496.         EndM
  6497.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6498.         IMPORT_CFM_FUNCTION QTVideoOutputEnd
  6499.     ENDIF
  6500.  
  6501. ;
  6502. ; pascal ComponentResult QTVideoOutputSetDisplayMode(QTVideoOutputComponent vo, long displayModeID)
  6503. ;
  6504.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6505.         Macro
  6506.         _QTVideoOutputSetDisplayMode
  6507.             move.l              #$00040007,-(sp)
  6508.             moveq               #0,D0
  6509.             dc.w                $A82A
  6510.         EndM
  6511.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6512.         IMPORT_CFM_FUNCTION QTVideoOutputSetDisplayMode
  6513.     ENDIF
  6514.  
  6515. ;
  6516. ; pascal ComponentResult QTVideoOutputGetDisplayMode(QTVideoOutputComponent vo, long *displayModeID)
  6517. ;
  6518.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6519.         Macro
  6520.         _QTVideoOutputGetDisplayMode
  6521.             move.l              #$00040008,-(sp)
  6522.             moveq               #0,D0
  6523.             dc.w                $A82A
  6524.         EndM
  6525.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6526.         IMPORT_CFM_FUNCTION QTVideoOutputGetDisplayMode
  6527.     ENDIF
  6528.  
  6529. ;
  6530. ; pascal ComponentResult QTVideoOutputCustomConfigureDisplay(QTVideoOutputComponent vo, ModalFilterUPP filter)
  6531. ;
  6532.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6533.         Macro
  6534.         _QTVideoOutputCustomConfigureDisplay
  6535.             move.l              #$00040009,-(sp)
  6536.             moveq               #0,D0
  6537.             dc.w                $A82A
  6538.         EndM
  6539.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6540.         IMPORT_CFM_FUNCTION QTVideoOutputCustomConfigureDisplay
  6541.     ENDIF
  6542.  
  6543. ;
  6544. ; pascal ComponentResult QTVideoOutputSaveState(QTVideoOutputComponent vo, QTAtomContainer *state)
  6545. ;
  6546.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6547.         Macro
  6548.         _QTVideoOutputSaveState
  6549.             move.l              #$0004000A,-(sp)
  6550.             moveq               #0,D0
  6551.             dc.w                $A82A
  6552.         EndM
  6553.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6554.         IMPORT_CFM_FUNCTION QTVideoOutputSaveState
  6555.     ENDIF
  6556.  
  6557. ;
  6558. ; pascal ComponentResult QTVideoOutputRestoreState(QTVideoOutputComponent vo, QTAtomContainer state)
  6559. ;
  6560.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6561.         Macro
  6562.         _QTVideoOutputRestoreState
  6563.             move.l              #$0004000B,-(sp)
  6564.             moveq               #0,D0
  6565.             dc.w                $A82A
  6566.         EndM
  6567.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6568.         IMPORT_CFM_FUNCTION QTVideoOutputRestoreState
  6569.     ENDIF
  6570.  
  6571. ;
  6572. ; pascal ComponentResult QTVideoOutputGetGWorld(QTVideoOutputComponent vo, GWorldPtr *gw)
  6573. ;
  6574.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6575.         Macro
  6576.         _QTVideoOutputGetGWorld
  6577.             move.l              #$0004000C,-(sp)
  6578.             moveq               #0,D0
  6579.             dc.w                $A82A
  6580.         EndM
  6581.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6582.         IMPORT_CFM_FUNCTION QTVideoOutputGetGWorld
  6583.     ENDIF
  6584.  
  6585. ;
  6586. ; pascal ComponentResult QTVideoOutputGetGWorldParameters(QTVideoOutputComponent vo, Ptr *baseAddr, long *rowBytes, CTabHandle *colorTable)
  6587. ;
  6588.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6589.         Macro
  6590.         _QTVideoOutputGetGWorldParameters
  6591.             move.l              #$000C000D,-(sp)
  6592.             moveq               #0,D0
  6593.             dc.w                $A82A
  6594.         EndM
  6595.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6596.         IMPORT_CFM_FUNCTION QTVideoOutputGetGWorldParameters
  6597.     ENDIF
  6598.  
  6599. ;
  6600. ; pascal ComponentResult QTVideoOutputGetIndSoundOutput(QTVideoOutputComponent vo, long index, Component *outputComponent)
  6601. ;
  6602.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6603.         Macro
  6604.         _QTVideoOutputGetIndSoundOutput
  6605.             move.l              #$0008000E,-(sp)
  6606.             moveq               #0,D0
  6607.             dc.w                $A82A
  6608.         EndM
  6609.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6610.         IMPORT_CFM_FUNCTION QTVideoOutputGetIndSoundOutput
  6611.     ENDIF
  6612.  
  6613. ;
  6614. ; pascal ComponentResult QTVideoOutputGetClock(QTVideoOutputComponent vo, ComponentInstance *clock)
  6615. ;
  6616.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6617.         Macro
  6618.         _QTVideoOutputGetClock
  6619.             move.l              #$0004000F,-(sp)
  6620.             moveq               #0,D0
  6621.             dc.w                $A82A
  6622.         EndM
  6623.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6624.         IMPORT_CFM_FUNCTION QTVideoOutputGetClock
  6625.     ENDIF
  6626.  
  6627. ;
  6628. ; pascal ComponentResult QTVideoOutputSetEchoPort(QTVideoOutputComponent vo, CGrafPtr echoPort)
  6629. ;
  6630.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6631.         Macro
  6632.         _QTVideoOutputSetEchoPort
  6633.             move.l              #$00040010,-(sp)
  6634.             moveq               #0,D0
  6635.             dc.w                $A82A
  6636.         EndM
  6637.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6638.         IMPORT_CFM_FUNCTION QTVideoOutputSetEchoPort
  6639.     ENDIF
  6640.  
  6641. ;  UPP call backs 
  6642.  
  6643.     ENDIF ; __QUICKTIMECOMPONENTS__ 
  6644.  
  6645.